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Naissance des formes 


Continuons notre étude des systèmes informatiques de vision en 
voyant comment il est possible d’identifier des caractéristiques 
inscrites à l’intérieur d’un ensemble de formes. 


Les systèmes de reconnaissance des formes, cen- 
sés procéder « de bas en haut », cherchent à 
extraire d’une image donnée des traits caracté- 
ristiques qui seront à leur tour réduits à quelques 
éléments plus simples, beaucoup plus abstraits. 
Une méthode pour y parvenir consiste à faire 
usage d’opérateurs locaux. Chacun d’eux analyse 
une zone particulière, et multiplie les diverses 
intensités de gris qu’il est amené à rencontrer par 
des facteurs de pondération. Ces derniers sont 
par ailleurs déterminés de façon à donner des 
résultats élevés quand la caractéristique recher- 
chée est découverte. 

Le programme Wisard d’Igor Aleksander 
recourt au principe de « génération d’adresses 
mémoire » pour apprendre à se souvenir d’une 
forme et à la reconnaître plus tard. 

Le grand avantage de Wisard est qu’il travaille 
en parallèle avec ses blocs de RAM; il est donc 
très rapide, et peut de surcroît traiter des images 
télévisées à haute définition. Notre programme 
BASIC n’est que séquentiel, et sera donc bien plus 
lent : mais il suffit à donner une bonne idée des 
principes fondamentaux mis en œuvre. 


Les discriminants du système sont des sextu- 
ples : ils sont moins puissants que les octuples 
mais réclament moins d’espace mémoire. Nous 
aurons besoin de 20 480 bits (40 X 64 X 8) de 
RAM, soit 2 560 octets. Il y a en effet 40 sextu- 
ples, dont chacun peut prendre 64 états diffé- 
rents, ce qui lui permet d’adresser un bloc de 
RAM de 64 adresses. Chacune d’elles compte 
8 bits, et notre programme pourra donc différen- 
cier huit classes de données différentes. 

Il comporte deux phases successives — la pre- 
mière d’apprentissage, la seconde de reconnais- 
sance. L’ordinateur se voit d’abord soumettre des 
exemples de chacune des classes de données, puis 
procède à des identifications par comparaison. 

Supposons par exemple que pendant la pre- 
mière phase le sextuple n° 2 donne la réponse 
110010 (soit 50) à chaque fois qu’une forme de 
classe 4 est présente. Le quatrième bit de 
l’adresse mémoire 50 du bloc de RAM n° 2 
prendra dans ces conditions une valeur de 1. Lors 
de la phase ultérieure d’identification, si le dis- 
criminant donne de nouveau une réponse de 50, 
le quatrième bit de l’adresse correspondante sera 


T'en fais une tête! 

Le système Wisard d'igor 
Aleksander, mis au point à 
l'Imperial College de 
Londres, fait usage d'une 
grille de 512 x 512 et 
d'une RAM de 1 mégaoctet 
pour pouvoir reconnaître 
les formes qui 
apparaissent sur un écran 
de télévision. Il est capable 
de faire des distinctions 
assez subtiles, par exemple 
entre le même visage selon 
qu'il est maussade ou 
souriant. (CI. Tony 
Sleep/Computer 
Recognition System.) 
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mis à 1, ce qui tendra à confirmer la présence de 
la forme n° 4. 

Un ensemble d’octets, commençant en D, 
contient les données relatives à la forme consi- 
dérée ; le tableau tout entier est remis à zéro à cha- 
que nouvelle exécution. C’est là le rôle du sous- 
programme commençant à la ligne 1000. Celui 
de la ligne 2000 vous permettra de « peindre » 
des images très simples (16 X 16) sur l’écran, en 
vous servant des touches H, B, G et D pour 
déplacer le curseur, et de x et de la barre d’espa- 
cement pour créer votre figure. 

Le programme peut être modifié de façon que 
vous puissiez stocker le tableau D sur cassette ou 
sur disquette. Tel qu’il est ici, vous devrez lui 
réapprendre à chaque fois toutes les règles de 
classification en partant de zéro; n’hésitez pas, 


par conséquent, à lui faire subir toutes les modi- 
fications que vous jugerez utiles. Il serait magni- 
fique de pouvoir faire usage d’un convertisseur 
analogique-numérique rattaché à une caméra, 
pour relier l’ordinateur au monde extérieur. 

La forme originelle est conservée au sein d’un 
tableau bidimensionnel, ||), dans lequel 1 repré- 
sente un astérisque et 0 un espace. Au cours de 
la phase d’apprentissage, les adresses sont déter- 
minées à partir d’éléments de ||) choisis de façon 
aléatoire. Le bit correspondant (qui est fonction 
de la classe de formes à apprendre) est déterminé 
à la ligne 210. Ensuite, au cours de la phase 
d’identification, la même séquence d’adresses 
devra être générée afin de comparer la forme en 
cours d’évaluation aux classifications apprises 
précédemment. 


Programme 
de reconnaissance de formes 


Spectrum 

10 REM sk RECONNAISSANCE ##k 

20 REM DE FORMES LL) 

25 REM #wx SPECTRUM L.222 

30 CLEAR 49999 : GOSUB 4008 

56 SX=40 : DS=6 : RB=2"DS 

57 ME=SX+*RB 

60 DIM 1(16,16),C(8) 

64 LET D=50018 

85 PRINT "TOTAL TAILLE RAM ="3ME; "OCTETS" 
88 GOSUB 1008 :REM TABLEAU D REMIS A ZERO 
9Q REM ##*#*+ PHASE D’ APPRENTISSAGE ##%% 

32 M$="APPRENTISSAGE" 

95 INPUT "DE QUELLE CLASSE (1....,8)" 

96 IF C<1i OR>8 THEN 95 

100 FOR I=1 TO 16:FOR J=1 TO 16 : ICI, J)=0 


191 NEXT J:NEXT I 

110 REM ex SAISIE IMAGE UTILISATEUR #4 
120 GOSUB2000 : REM CREATION D’ IMAGES 

130 RANDOMIZE 1 

149 FOR I=1 TO SX 

150 A=RB+(I-1):REM RECOPIE ADRESSE BLOC RAM 
169 FOR J=0 TOCDS-1) 

17@ R1=INTCRND(1)#16#+1) :RZ=INTCRND(1)#16+1) 
190 A=A+ICRI, R2D#21J 

200 NEXT J 

210 LET X1=PEEK(D+A):LET Y1=2 ! (C-1):GOSUB 6000 
215 POKE(D+A), R1 

22@ NEXT I 

230 INPUT"UNE AUTRE LEÇON D' APPRENTISSAGE" 
233 IF A$="0" THEN SO:REM ON RECOMMENCE 
234 REM *+#* PHASE D’ IDENTIFICATION" 

235 M$="IDENTIFICATION" 

240 FOR I=1 TO 16:FOR J=1 TO 16 

244 ICI, J)=0 
245 NEXT J:NEXT I 

250 GOSUB 2000:REM SAISIE IMAGE POUR IDENTIFICATION 
278 RANDOMIZE 1 

280 FOR C=1 TO 8 : C(c)=D:NEXT C 

230 FOR 1=1 TO SX 

308 A=RB*+(C1-1) 

310 FOR J=@ TO DS-1 

320 R1=INTCRNDC12#16+1) :R2=INT CRND(1)#16+1) 

348 A=A+ICRI, R2)#21J 

350 NEXT J 

3SS FOR C=1 TO 8 

360 LET X1=PEEK(D+A):LET Y1=2 t (C-1):GOSUB 5000 
365 IF R1>@ THEN C(c)=C(c)+1 

370 NEXT C 

38@ NEXT 1 


381 CLS 

382 CX=2:X=0:Y=17:G0SUB 3000 

38S FOR C=1 TO & 

288 PRINT"'LA CLASSE"C"OBTIENT UN SCORE DE": 
Cic)/Sx*100 

330 IF C(C)>CCCX) THEN CX=C 

408 NEXT C 


4@4 PRINT'LA CLASSE LA PLUS PROBABLE EST LA 
CLASSE N°"3:CX 


41@ INPUT"VOULEZ-VOUS IDENTIFIER UNE AUTRE 


IMAGE (O/NY': AS 
420 IF A$="0" THEN 240:REM ON RECOMMENCE 


4ä4 END 


1000 REM *#*s INITIALISATION MEMOIRE #4 

1010 FOR 1=0 TO ME:POKE(D+1),@:NEXT ! 

1038 RETURN 

1848 : 

2000 REM ##%* CREATION D’ IMAGES ww 

2005 CLS 

2018 X=0:Y=20 : GOSUB 3000:PRINT"SERVEZ-VOUS DE H, 
B,G,D,X,* OÙ DE LA BARRE D’ ESPACE" 

2012 PRINT"POUR CREER VOTRE IMAGE" 

2013 PRINT"PHASE D'"5MS$ 

2015 X=1:Y=1 : GOSUB 3000 

2020 T=D:AS=" "3 H=i : V=l 

2040 GET CS 

2050 IF C$="H" THEN V=V-1 : IF V€ 1 THEN V=16 

2060 IF C$="B" THEN V=V+1 : IF V >16 THEN V=i 

2070 1F C$="G" THEN H=H-1 : IF H<1 THEN H=16 

2080 IF C$="D" THEN H=H+1 :°IF H>16 THEN H=1 

2110 1F C$=" "THEN T=® : A$=CS 

2120 IF C$="#"THEN T=1 : A$=C$ 

2130 ICH,V)=T 

2140 X=H:Y=V: GOSUB SO20:PRINT A$: 

2150 IF C$<>"X" THEN 2040 

2155 GOSUB 2200 

21608 RETURN 

2170 : 

2200 REM ###%# S/P AFFICHAGE ###n 

2210 FOR H=1 TO 16 

2220 FOR V=1 TO 16 

2230 X=H : Y=V : GOSUB 3O08@:IF ICH,V)=@ THEN PRINT 
“:":GOTO 2240 

2235 PRINT" “5 

2248 NEXT V:NEXT H 

2250 X=0 : Y=17 : GOSUB 3000 

2260 RETURN 

2270 : 

3000 REM rs TABULATION “x 

3010 PRINT CHR$(19) : TABCX) 5LEFTSCDWS#, Y) 5 

3020 RETURN 
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Commodore 64 


1e REM--## RECONNAI SSANCE ns 

REM “kr DE FORMES C4 ns 

FORI=1 TO 25:DWS#=DW#+CHRSC17)2NEXT I 
SX=40:DS=6 : RB=2"DS 

ME=SX+RB 

DIM 1(16, 16), C(8) 

D=12#4096:REM UTILISE #C008 POUR TABLEAU D 
PRINT"TOTAL TAILLE RAM="3ME ; "OCTETS * 

GOSUB 1000:REM TABLEAU D REMIS A ZERO 

REM kms PHASE D'APPRENTISSAGE tk 

M$=" APPRENTISSAGE“ 

INPUT“DE QUELLE CLASSE EST (1... 2)5C" 
IFC<1 OR C>8 THEN 95 

100 FOR I=1 TO 16:FOR J=1 TO 16:1C1,J)=0 

191 NEXT JINEXT ! 

110 REM *%kk SAISIE IMAGE UTILISATEUR xx 
120 GOSUB 2000:REM CREATION D' IMAGES 

30 R=RND(-1):REM VALEUR ORIGINELLE ALEATOIRE 
48 FORI=1 TO SX 

S@ A=RB*(I-1):REM RECOPIE ADRESSE BLOC RAM 
160 FOR J=@ TO (DS-1) 
7e 
se 


RERSERFSINS SE 


R1=INT CRND C1) #16+1) : R2= INT CRND(1)#16+1) 
A=A+ICR1, R2D#27J 

NEXT J 

POKE(D+A) ,; (PEEK(D+A) OR 2(C-1)) 

NEXT ! 

INPUT"UNE AUTRE LEÇON D'APPRENTISSAGE CO/N) :A$ 
IF A$="0" THEN SG:REM REPETITION 

REM tk PHASE D' IDENTIFICATION sn 

M$=" IDENTIFICATION" 

FOR I=1 TO 16:FOR J=1 TO 16 

ICI, J)=0 

NEXT JaNEXT I 

GOSUB 2000:REM SAISIE IMAGE POUR CLASSIFICATION 
R=RND (1) 

FORC=1 TO 8:C(C)=B:NEXT C 

FOR I=1 TO SX 

A=RB#CI-1) 

FOR J=Q TO DS-1 

RA=INTCRND (1) #16+1) 2R2=1INT CRNDC1)#16+1) 
A=A+ICR1, R2I#29J 

NEXT J 

FOR C=1 TO 8 

IF (CPEEK(D+A)AND 2*(C-1)) @ THEN C(C)=C(C)+1 
370 NEXT C 

380 NEXT ! 

381 PRINTCHRS(147) 

382 CXx=0:X=0:Y=17:GO0SUB 3000 


8 à 
» 
e 
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385 FOR C=1 TO 8 

389 PRINT"LA CLASSE" C "OBTIENT UN SCORE DE":C(C)/ 
Sx*190 

390 IF C(C)>C(CX) THEN CX=C 

4D@ NEXT C 

4G4 PRINT"LA CLASSE LA PLUS PROBABLE EST LA CLASSE 
N°"3CX 

410 INPUT "VOULEZ-VOUS IDENTIFIER UNE AUTRE IMAGE 
CO/N) 2458 g 

420 1F A$="0"THEN 240:REM ON RECOMMENCE 

äh4 END 

333 : ù 

1000 REM ##ks INITIALISATION MEMOLRE ve 
1010 FOR 1=Q TO ME:POKECD+I),@:NEXT I 

1050 RETURN 

1060 : 

2000 REM wwwx CREATION D'IMAGES #4 

2005 PRINTCHR#(147) 

2010 X=0:Y=20:G0SUB 3000: PRINT"'SERVEZ-VOUS DE 
H,B,G,D,X,* OU DE LA BARRE D’ ESPACE" 

2012 PRINT "POUR CREER VOTRE IMAGE" 

2013 PRINT"PHASE:"5M$ 

2015 X=1:Y=1:GOSUB 3000 

2020 T=0:A$=" ":H=l: Vel 

2040 GET C# 

2050 IF C$="H" THEN V=V-1:1F V<1 THEN V=i6 
2060 IF C#$="B" THEN V=V+1:1F V2>15 THEN V=1 
2070 IF C$="G" THEN H=H-1:1F H<1 THEN H=16 
2080 IF C#$="D" THEN H=H+1:1F H316 THEN H=1 
2110 IF C$=" " THEN T=D:A$=CS$ 

2120 IF C$="#" THEN T=1:A$=C$ 

2130 ICH V)=T 

2140 X=H:Y=V:GOSUB 3000: PRINTAS: 

2150 IF C$<)"X" THEN 2940 

2155 GOSUB 2200 

2160 RETURN 

2170 : 

2200 REM ##wwk S/P AFFICHAGE #4 

2210 FOR H=1 TO 16 

2220 FOR V=1 TO 16 

2230 X=H:Y=V:GOSUBSO0: IF ICH,V)=@ THEN PRINT":;":G 


2235 PRINT" "3 

224@ NEXT ViëNEXT H 

2250 X=0:Y=17:60SUB 3000 

2260 RETURN 

2270 : 

3008 REM ##%* TABULATION ##%x 

3019 PRINTCHR#(19) : TABCX) :LEFT#CDWS#, Y) 5 
3020 RETURN 


Opérateurs locaux 

Nous vous présentons (à 
gauche) un exemple de 
traitement élémentaire de 
données, tel qu'il peut être 
mis en œuvre par un 
système de reconnaissance 
de formes procédant « de 
bas en haut ». Les grilles 
de 3 x 3 sont des 

« opérateurs locaux »; elles 
analysent les données 
relatives à l'image et 
enregistrent des résultats 
élevés aux zones 

« frontières », ce qui 
permet de définir, très 
grossièrement, l'image 
comme un ensemble de 
lignes droites. Les 
opérateurs sont déplacés 
sur toute l’image et chaque 
nombre est multiplié par 
l'intensité du niveau de gris 
de la section au-dessus de 
laquelle il se trouve. 
L'addition des produits 
ainsi obtenus donne des 
résultats élevés quand la 
caractéristique recherchée 
est présente, faibles dans 
le cas contraire. Chacun 
des neuf nombres de 
l'opérateur local est un 
facteur de pondération; 

la conformation de ces 
facteurs détermine quelle 
sera la forme identifiée. 
(CI. Caroline Clayton 

sur Macintosh.) 


Un œil octuple 

Des groupes de 8 pixels 
sont connectés 
arbitrairement à des 
registres de 8 bits et 
constituent la base du 
système de reconnaissance 
de formes Wisard. Chaque 
octuple correspond à un 
bloc de 256 adresses 
mémoire. Au cours de la 
phase d'apprentissage, 

la valeur contenue dans 
l'octuple détermine une 
adresse mémoire en RAM, 
selon la disposition des 
pixels, et une valeur de 1 
est écrite à l'adresse 
correspondante. Si la 
même forme est présentée 
au système au cours de la 
phase d'identification, la 
même adresse sera 
générée et la présence 
d'un 1 permettra la 
reconnaissance de la 
structure en question. 
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La machine 

Le Cray-1 (photographié ci- 
dessus) offre à l'utilisateur 
une énorme puissance de 
traitement sous le contrôle 
d'un ordinateur frontal 
comme un IBM, un DEC ou 
un autre ordinateur 
similaire. 
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Comparaisons 


Comparons le Cray-1, l’ordinateur le plus puissant du monde, et un 
micro construit autour d’un Z80. Une application servira de référence. 


Les différences sont considérables. 


La « puissance » d’un ordinateur est, en simpli- 
fiant, le produit de plusieurs facteurs : longueur 
de mot, vitesse de transfert des données, taille de 
la mémoire principale et vitesse de l’unité cen- 
trale. Pour les micro-ordinateurs, les fonctions 
des UC traditionnelles sont rassemblées dans un 
seul microprocesseur. Parmi ceux-ci, mention- 
nons le Z80, les Intel 8088 et 8086 et le Motorola 
M68000. Tous utilisent la technologie MOS 
(Metal Oxyde Semiconductor) pour les circuits 
logiques et une mémoire sur puce. Les données 
sont transférées et traitées en parallèle sur 8 ou 
16 bits à la fois. Les fréquences d’horloge vont 
de 1 MHz à 12 MHz. 

De telles caractéristiques, bien qu’assez impres- 
sionnantes, ne permettent pas aux micro- 
ordinateurs de traiter la quantité colossale de 
données résultant d’applications comme le trai- 
tement des images, la dynamique des fluides et 
les prévisions météorologiques. 

Prenons un exemple concret. Supposons que 
vous créez un film avec des graphiques générés 
par ordinateur, et que le film implique une réso- 
lution de 6 000 sur 6 000 pixels, et 24 images par 


(vers toutes les sections) 


seconde. Puisque les graphiques sont animés, la 
position de chaque point de l’image peut se dépla- 
cer entre chaque image. Cela nécessite 864 mil- 
lions de calculs par seconde; chacun de ces 
calculs risque d’être assez compliqué et d’entraf- 
ner des douzaines ou des centaines d’instructions 
écrites en code machine. Cela signifie des mil- 
liards d’instructions par seconde. L’encadré 
« Essais chronométrés » donne une comparaison 
approximative du temps nécessaire pour produire 
une séquence de film de 10 minutes à la fois sur 
un super-ordinateur et sur un micro fondé sur 
un Z80. 

Les super-ordinateurs — ainsi sont surnommés 
les grands systèmes — fonctionnent un peu de 
la même manière que les micros; les instructions 
sont extraites de la mémoire, les données sont 
manipulées par le processeur selon ses instruc- 
tions et les résultats sont stockés en mémoire. 
Principales différences : la vitesse à laquelle ces 
opérations sont exécutées, et la manière dont sont 
construites les diverses parties des ordinateurs. 

Comme exemple de super-ordinateur, nous 
avons choisi le Cray-1S/4400, fabriqué par Cray 
Research. Le premier Cray-1 fut installé en 1976, 
seulement quatre ans après la création de la 
société. Depuis lors, il a acquis la réputation 
d’être l’un des grands systèmes parmi les plus 
puissants qui existent. 

L'UC du Cray-l occupe une armoire semi- 
circulaire d’une hauteur de 2 m, dont la forme 
rappelle celle d’un canapé courbe (le système de 
refroidissement se trouve sous les « sièges »). Sa 
vitesse provient de l’utilisation d’une logique 
à semi-conducteurs bipolaires (les semi- 
conducteurs bipolaires sont des transistors « ordi- 
naires », par opposition aux MOS, CMOS, 
NMOS, FET — transistors à effet de champ —, 
et à d’autres types de semi-conducteurs). La logi- 
que bipolaire et la mémoire sont contenues dans 
plus de 200 000 circuits intégrés sur 3 400 cartes 
distinctes de circuits imprimés, avec plus de 
90 km de fils servant à les interconnecter. 

La taille des mots utilisés dans les calculs est 
de 64 bits (traitement simultané de données huit 
fois supérieur à celui d’un Z80 à 8 bits) et l’hor- 
loge système fonctionne à 80 MHz (80 millions 
de cycles par seconde). Une addition typique de 
64 bits ne met que 37,5 ns. Une addition de 8 bits 
dans un Z80 fonctionnant à 4 MHz (par exem- 
ple, ADD À, n) est effectuée en 1,75 us. 

La mémoire principale du Cray fait partie inté- 
grante de l’UC. Elle renferme 32 mégaoctets dis- 
posés en 4 194 304 mots. La mémoire peut trans- 


férer jusqu’à 2 560 millions d’octets par seconde. 
Comme vous pouviez le supposer, le Cray dis- 
pose d’un ensemble impressionnant de registres 
d’UC. Il y a 72 registres d’adresses (24 bits de 
largeur), 72 registres scalaires (64 bits de largeur) 
et 8 registres de vecteurs (64 mots de largeur). 
L'espace total de registre UC est donc de 
4 888 octets (celui du Z80 n’est que de 26). 


L'ordinateur frontal 


Contrairement à la plupart des ordinateurs, qui 
sont des unités autonomes, les ordinateurs Cray 
sont conçus pour être utilisés comme extensions 
à des grands systèmes ou à des mini-ordinateurs. 
L'ordinateur frontal sert d’interface; il reçoit les 
entrées provenant des terminaux ou des lecteurs 
de cartes, et dirige une sortie vers des unités péri- 
phériques, telles des imprimantes ou des unités 
de stockage sur bande magnétique. 

Le sous-système d’E/S du Cray se situe entre 
l'UC et l’ordinateur frontal principal; ce sous- 
système sert à rendre le fonctionnement du 
système Cray compatible avec les gros systèmes 
IBM, DEC, Data General ou autres. Le sous- 
système d’E/S Cray est composé de deux ou de 
quatre processeurs d’E/S, chacun ayant la capa- 
cité de traitement d’un mini-ordinateur. 

Cette description du Cray-1 est très superfi- 
cielle, bien que le diagramme fonctionnel de 
l’'UC puisse vous donner un aperçu de son 
perfectionnement. 

Nous ne pouvons aborder dans cet article le 
jeu d’instructions ni les 13 unités fonctionnelles 
pouvant fonctionner en parallèle, ni le traitement 
vectoriel qui permet d’utiliser 64 paires d’opéran- 
des sur une seule instruction. Mais tout cela est 
suffisant pour dire que le Cray-1 est une machine 
très puissante. 


Essais chronométrés 


Afin de comparer la puissance de traitement 
du Cray-1 à celle d’un ordinateur domestique 
construit autour d’un Z80, comme l’Amstrad 
CPC 464, prenons par exemple la réalisation 
d’une séquence de film d'animation de 

10 minutes, en graphiques haute résolution. 
Nous supposons une résolution image de 
6000 x 6000 points, et 24 images par 
seconde. Nous supposons également que 
chaque point doit être calculé séparément 
pour chaque nouvelle image, et que cent 
instructions en code machine seront 
nécessaires pour la version Z80, avec un 
temps d'exécution moyen de 19 cycles 
horloge (4,75 us). Pour le Cray-1, avec ses 
puissantes instructions de traitement de 
vecteurs, supposons que nous ayons besoin 
de vingt-cinq instructions écrites en code 
machine (estimation au minimum) avec 

un temps moyen d'exécution de 4 cycles 
d'horloge (50 ns). 

Un Z80 mettrait 60002 x 24 x 10 x 100 

x 4,75 x 1075 = 2,4624 x 10f 5, soit 7 ou 
8 années. Un Cray-1 mettrait 6000? x 24 

x 60 x 10 x 50 x 107% = 6,46 x 10° 5, 
soit 7,5 jours. (CAL Video for Mike Mansfield 
Enterprises.) 


Applications pour super-ordinateurs 


Prévisions météorologiques 


Les prévisions météorologiques sont le résultat d'une cueillette 
de données météorologiques à l'échelle mondiale, de liaisons 
par satellites et d'utilisation de modèles informatiques. 

Un modèle météorologique de la planète implique des centaines 
de millions de calculs sur d'énormes quantités de données. 
Seuls des ordinateurs très puissants, comme le Cray, peuvent 
gérer une telle quantité de données aussi rapidement. 


Dynamique des fluides 


La dynamique des fluides joue un rôle très important dans la 
conception d'automobiles à faible consommation de carburant, 
de systèmes de refroidissement de centrales nucléaires, dans 
la construction aéronautique, etc. L'analyse et la prévision des 
mouvements nécessitent le traitement d'une quantité de 
données gigantesque. Les problèmes deviennent énormes 
lorsqu'il est nécessaire de fournir des résultats en temps réel. 
a principale difficulté vient du fait que chaque particule du 
fluide — et il y en a des milliards — a, par son mouvement, 

un effet sur les autres particules du système. Le calcul du 
comportement global exige donc une puissance de traitement 
colossale. 


Prévisions économiques 


Les modèles économiques ont la réputation d'être très difficiles 
à construire. Comme en mécanique des fluides, une toute petite 
variation au niveau d'une composante peut avoir des effets qui 
touchent l'ensemble du système. La création d'un modèle 
économique du monde entier n'est pratiquement pas réalisable; 
mais même des modèles simplifiés sont d'une complexité 
impressionnante. De nouveau, il est nécessaire d'avoir recours à 
des ordinateurs extrêmement rapides et puissants afin d'obtenir 
les résultats en temps utile. L'utilisation des super-ordinateurs 
s'impose lorsque le facteur temps est essentiel dans une 
application. 


Révolution visuelle 
Des plus grands succès du 
rock aux clips publicitaires 
les graphiques générés par 
ordinateur ont révolutionné 
la production vidéo et 
cinématographique. De 
telles images peuvent être 
créées facilement par un 
mini-ordinateur moderne et 
en utilisant la technologie 
micro. À une large échelle, 
un Cray-1 servit à générer 
plus de vingt minutes de 
tournage pour le film The 
Last Starfighter; il effectua 
des calculs pour lesquels 
un micro 8 bits aurait mis 
plus de quinze ans! (CI 
CAL Video pour B.B.D.0.) 
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Qui encercle qui ? 

Le groupe blanc est 
complètement encerclé par 
le groupe noir, et il ne lui 
reste que deux libertés. 
Mais il entoure également 
trois pierres noires. 


Une erreur fatale 

Si les noirs entreprennent 
d'occuper une des deux 
libertés blanches, en 
espérant ainsi capturer le 


groupe tout entier, les 
blancs répondront 
simplement en jouant à 
l'emplacement de la 
dernière liberté — car 
celle-ci est commune aux 
deux camps. Ce n’est donc 
pas un suicide (illégal), 
puisqu'ils capturent de 
cette façon quatre pierres 
noires. 


Sain et sauf 
Les blancs n'auront plus 


qu’à se doter de deux yeux. 


Il est inutile que les noirs 
essaient d'occuper l’une 
des libertés restantes. 

Ils auraient dû, dès 

le départ, s'abstenir 
d'intervenir, et accepter 
la perte de leurs pierres. 
Ce type de situation est 
appelé seki. 
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Voici les listages qui permettront d’adapter le programme de go 
au C64, au Spectrum et à l’Amstrad 464/664. Ils sont consacrés à 
l’affichage du plateau de jeu et comportent plusieurs modules. 


A chaque fois, nous nous sommes efforcés de res- 
pecter une architecture d’ensemble reposant sur 
des principes voisins. Cela nous permet de don- 
ner une certaine unité aux listages du Commo- 
dore 64, du Spectrum de Sinclair et de |’ Amstrad 
CPC 464/664 relatifs au jeu de go. 

Par souci de clarté, les numéros de ligne sont 
pratiquement les mêmes. Les limitations de telle 
ou telle machine, ou les particularités de leur dia- 
lecte BASIC, ont parfois imposé des modifications 
aux algorithmes originaux. C’est par exemple 
le cas pour tout ce qui concerne l’affichage 


eee 
@ XX 


Eau 


NE | 


| 


Caroline Clayton 


écran. Retenez pourtant que tous les listages, par- 
delà leurs différences de détail, suivent une logi- 
que analogue; un examen comparatif vous en 
convaincra sans peine. Ce sera aussi un bon 
moyen d’étudier sur pièces la conversion d’un 
programme donné, de façon qu’il puisse tourner 
sur des ordinateurs différents. 

Le jeu de go est une excellente base concep- 
tuelle pour d’autres applications logicielles. Par 
exemple, les principes de ce jeu permettraient de 
concevoir de bons programmes de stratégie mili- 
taire ou économique. 


Module un 


Commodore 64. 


10 POKE 56578,PEEK(56578)OR3:POKE 56576, 
(PEEK(56576)AND252)OR1 s = 
15 POKE648,132:POKE 52,128:POKE 56,128 
20 DIM SK%(300) - 
30 POKE 53280,0:POKE 53281,0:PRINT'"[CLEA 
R] [DOWN] [DOWN] [DOWN] [DOWN] [DOWN] [DOWN] [D 
OWN ] [DOWN ] [DOWN] [DOWN] (WHITE) 
PLEASE WAIT'":GOSUB 470 
LO GOSUB 1270 [A ; 
50 PRINT"{[CLEAR]":GOSUB 1730 
60 MOVE%X=MOVEX+1:REM WHITE MOVES HERE 
70 IF FIN% GOTO 100 
80 MOVE%X=MOVEX+1:REM BLACK MOVES HERE 
90’IF NOT FIN% GOTO 60 
100 IPX=22:IM%X=9:IW%=1: GOSUB 1990 
110 IF A$="Y" GOTO 40 
115 IF A$<>'"N" GOTO 100 
120 MP%X=24:MMX-5:0$="":GOSUB 2160 
130 GOTO130 
170 REM INITIALISE ROUTINE 
190 BLACK%=1:WHITEX=2: COLOUR%X=3 
200 MARKER%=U : LIBERTY%=8 
220 BOARD=49152 
240 DIM CAPTUREX%(2) 
AXIS$="{[e 3]ABCDEFGHIJKLMNO" 
DIM DIRX(H) 
FOR L=1 TO 
READ DIRX(L) 
NEXT 
DATA 16,1,-16,-1 
GOSUB 390 
RETURN 
REM READ-MESSAGES ROUTINE 
DIM MESS$(9) 
FOR M=0 fO 9 
READ MESS$(M) 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"O.K. THINKING..." 
"ILLEGAL ENTRY: " 

"STONE ALREADY ON POINT: 
"ILLEGAL. KO ON POINT: 
"ILLEGAL SUICIDE ON POINT: 
“O.K. GAME OVER. PRESS RUN/STOP 


LL 


DATA 
DATA 


" 


HOW MANY. HANDICAP STONES MAY 
HAVE (2-9) ?" 


540 DATA “TYPE YOUR MOVE (EG. H8), PASS 
OR QUIT-:" 
550 DATA "DO YOU WANT TO PLAY AGAIN (Y/N 
LA 
560 RETURN 
1270 REM INTRODUCTION ROUTINE 
1280 GOSUB 1340 
1290 GOSUB 1450 
1340 REM GAME-INIT ROUTINE 
1345 STACK%X=1 
1360 A1$=" "1: A2$=" 
1370 LOCAT%=0:MOVEX=1 
1380 FIN%X=0 
. CAPTURE%(1)=0:CAPTUREX(2)=0 
RETURN 
REM TITLE“-SCREEN ROUTINE 
POKE 53280,0:POKE 53281,0 
PRINT'"'{CLEAR] [DOWN] [DOWN] [DOWN] [DOW 
[e 3J][RVSON][e VJle ï]le 
[RVSON][e Vlle 1]{e ci" 
[RVSON] [RVSOFF 
[RVSON] [RVSOFF] [RVSON] " 
[RVSON] [RVSOFF 


C][RVSOFF] 
1480 PRINT" 
J[e D]le r7 


1800 PRINT TAB(12);"[DOWN]";AXISS$ 

1810 FOR Y=15 TO 1 STEP -1 

1820 PRINT TAB(9);"[c 3]":RIGHT$(","+STR 
PUY). 202" 

1830 FOR X=1 TO 15 

1840 PP%X=PEEK(BOARD+16%#Y+X) 

1850 IF PP%X=1 THEN PRINT'"[c 3}{s-@]";:GO 
TO 1880 

1860 IF PP%X=2 
GOTO 1880 
1870 PRINT'"[e 
1880 NEXT 
1890 PRINT'"[c 
1900 NEXT 
+910 PRINT TAB(12);:AXISS$ 

1920 PRINT" [DOWN] [YELLOW] LAST MOVE: "; 
1930 ITCP%X=LOCAT%:GOSUB 2260:PRINT TAB(2 
L)+A1$ 

1940 PRINT TAB(18);'"[DOWN] [CYAN]":A2$ 
1950 RETURN 

1990 REM INPUT ROUTINE 

2000 IS%=0 

2010 POKE 780,0:POKE 781,1IP%+1:POKE 782, 


THEN PRINT"(WHITE][(s Q]j":: 
6](s +]"; 


3]1-"{RIGHT$(" "+STRS(Y),2) 


1490 PRINT" 
] [RVSON] [RVSOFF] 
SON] " - 
1500 PRINT" 
I)][(RVSOFF]J[e V] 
Flleivi" 

1510 PRINT'"{DOWN] [DOWN] 
MARCUS JEFFERY" 


1520 PRINT'"[DOWN] (PURPLE]YOU WILL PLAY T 
AND" 
(BEING WEAKER! 


HE ([WHITEJWHITE [PURPLE]STONES, 
1530 PRINT"THE COMPUTER 
) WILL'" 


1540 PRINT"'HAVE THE ([c 3JRED [PURPLE]STO 


NES WITH A HANDICAP" 
1550 PRINT" 

1560 IP%X=20:IM%=7:IW%X=1:GOSUB 1990 
1565 HNDX=VAL(AS$) 

1570 IF HND%X<2 OR HND%>9 GOTO- 1560 
1590 RETURN 

1730 REM PRINT-BOARD ROUTINE 
1750 PRINT"[HOME] [YELLOW] 
PTURED BY:"; 

1760 PRINT"'[WHITE) 
1770 PRINT"[YELLOW] 
APTUREX%(2); 


MOVE" 


1780 PRINT TAB(18):'"[YELLOW]BLACK =[CYAN 


] ";CAPTUREX(1); 
1790 PRINT TAB(31);''(WHITE]";MOVEX% 


10 MEMORY &9FFF 

20 DIM s(300) :REM stack 

30 GOSUB 170:REM init 

40 GOSUB 1270:REM introduction 

S0 CLS:GOSUB 1730:REM print board 
60 mve=mve+i:REM white moves her 
70 

80 

$0 

100 


IF NOT over THEN 60 
ipz=23:imz=9:iw=1:GOSUB 1790 
110 IF a$="Y" THEN 40 

115 IF a$<)>"N" THEN 100 

120 mp/=25:mm/=5:0$="":GOSUB Zié 
O:REM message 

130 END 

170 REM init routine 

190 black%=1iwhite/=2:colour#=3 
195 INK 1,26:REM white 

197 INK Z,24:REM ye]l]ow 

200 marker/=4:1ibert}=8 

220 boar d=&AGO0 

240 DIM capture(2) 

250 axist$="ABCDEFGHIJK 
LMN O0" 

260 GOSUB 390:REM read messages 

290 DIM dir(4) 

300 RESTORE 340 

310 FOR 1%=1 TO 4 

320 READ dirÆ(1%) 

330 NEXT 1% 


[RVSON] [RVSOFF] [RV 


[e CJ(RVSON][e 
[e CJ][RVSON]J[c I][RVSOF 


(CYAN]BY 


ADVANTAGE. " 


STONES CA 


WHITE =[CYAN] 


IF over* THEN 60 a 
mve=mue+l:REM black moves here 


39:SYS 65520 
2015 
2020 
2030 
2060 
2065 
2070 
2080 
*1S%):PRINT 1I$;:GOTO 2060 
2085 GOTO 2060 


A$="" 
PRINT" [WHITE] 


FOR II=1 TO 79:PRINT CHR$(20);:NEXT 


"“;MESS$(IM%);" *; 
GET I$:1IF 1$="" GOTO 2060 

IF ASC(1$)=13 GOTO 2120 

IF ASC(I$)<>20 GOTO 2100 

IF IS%X>0 THEN IS%X=IS%X-1:A$=-LEFTS(AS$ 


2100 IF ISX<IWX THEN ISX=1IS%X+1:A$=-AS$+1$: 


PRINT"{[CYAN]";1$; 

2110 GOTO 2060 

2120 RETURN 

2160 REM MESSAGE ROUTINE 
2190 
:SYS 
2195 
2200 PRINT" 
O$:'"[RVSOFF]"; 
2220 RETURN 


65520 


POKE. 780,0:POKE 781,MP%:POKE 782,39 


FOR ME=1 TO 39:PRINT CHR$(20);:NEXT 
[RVSON] [ce 3]";MESS$ (MMX) ; 


2260 REM INT-TO-CHAR ROUTINE 


vsc 
P!"'; : RETURN 


MID$(STR$(INT(ITCP%X/16)),2) 
2280 PRINT"[CYAN]":C$;" 


kr dd 


340 DATA 16,1,-16,-1 
350 RETURN 7 
390 REM read message routine 
410 RESTORE 460 + 
“420 DIM mess$(9) J 
430 FOR m=0 TO 9 + 
440 READ mess$(m) 
450 NEXT mx ml 
460 DATA "O.K. THINKING.,,." “+ 
_ 470 DATA "Illegal entry: " 
. 480 DATA "Stone already on point 
: LL 
490 DATA "Illegal. Ko on pointes "1 
S00 DATA "Illlegal. Suicide on 
points 
510 DATA " O.K. GAME OVER" 
520 DATA ‘"" 
530 DATA "How many handicap ston 
es may 1 have (2-9) 7?" 
540 DATA "Type your move (eg. H& 
> PASS or QUIT :" 


550 DATA "Do you want to play ag 
ain CY/N)?" 
S60 RETURN 


1270 REM introduction routine 
1280 GOSUR 1340:REM game init 
1290 GOSUB 1450:REM title screen 
1300 RETURN 

1340 REM game init routine 

1345 stack%=i 


2270 IF ITCP%X=0 THEN PRINT'"'{CYANJHANDICA 


2275 C$=CHR$(ITCPX-16*INT(ITCP%X/16)+64 )+ 


“;:RETURN 


1360 
1370 
1380 
1390 
1410 
1450 
i4éûü 
1462 


atarii$=" "ratari2$="" 
location/=0 :mve%=1 

over =0 

capture/(1)=0:capturez(2)=0 

RETURN 

REM title screen routine 

CLS 

FOR c=1 TO 20 STEP:3 

1465 RESTORE 1474 

1470 MOVE 260+c,320+c 

1472 FOR i=1 TO G:READ x,>:DRAWR 
X5Y 33NEXT i 

1474 DATA -10,10,-50,0,-10,-10,0 
+-80,10,-10,50,0,10,10,0,20 

1476 MOVER--10,0:DRAWR 20,0 

1478 MOUE 380+c,320+c 

1480 FOR izi TO S:READ x,y:DRAWR 
X,YINEXT à. 

1482 DATA -10,10,-50,0,-10,-10,0 
,780,10,-10,50,0,10,10,0,80 

1484 NEXT c 

1500 LOCATE 12,13:PEN 3:PRINT 
1510 LOCATE 1,1é6:PEN Z:PRINT "Yo 
u will pla» the "; 
1520 PEN 1:PRINT'white 
PRINT'stones, and" 
1530 PRINT'"'and the computer bei 
ng weaker) will" 

1540 PRINT'have the ";:PEN 3:PRI 

NT'red ";:PEN Z2:PRINT'"'stones wit 


"s2:PEN 23 
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h à handicap" 
1550 PRINT TAB(13)"advantage" 
1560 ip/=22:im/=7:iwA=i:GOSUB 19 
PO:REM input 

1565 hand/=ASC(a$)-48 


41570 IF hand#<2 OR hand4>? THEN 


1560 

1590 RETURN 

1730 REM _ board routine 

1735 INK 0,4:BORDER 9:REM magent 

a/green 

1750 LOCATE 3,1:PEN 2:PRINT" Sto 

nes captured by:":;TAB(32)"Move" 

1770 PRINT TAB(3)'"White ="3;4:PEN 
3:PRINT captureZ(2); 
1780 PEN 2:PRINT" 

_N 3:PRINT capture 1); 
1790 PRINT TAE(332mve* 
1800 PRINT:PRINT TAB(5)axis$ 
1810 FOR »y%=15 TO 1 STEP -1 


1820 LOCATE 2, 20-Y4:PRINT RIGHTS 


C" "4STRS(YZ) ,2) ; 

1830 FOR xZ=1 TO 15 

1835 PRINT“ M}; 

1840 pA=PEEKCBoar d+ 1674 x) 


Sinclair Spectrum: 


10 CLEAR 63999 
20 DIM 8(300) 


30 PRINT AT 10,10;:"PLEASE WAIT 
“: GO SUB 170 
4O GO SUB 1270 
50 CLS : GO SUB 1730 
60 LET move=move+1: REM white 
moves here 
70 IF end THEN GO TO 100 
80 LET move=move+1: REM black 
moves here 
90 IF NOT end THEN GO TO 60 
100 LET 1ip=20: LET im=10: LET i 
W=1: GO SUB 1990 
110 IF a$="Y" THEN GO TO 4O 
115 IF a$<>"N" THEN GO TO 100 
120 LET mp=21: LET mm=6: LET o$ 
=""; GO SUB 2160 
130 STOP 
170 REM initialise routine 
190 LET black=1: LET white=2: L 
ET colours=3 
200 LET marker=h: LET liberty=8 
220 LET board=64000 
240 DIM c{2) 
260 GO SUB 390 
290 DIM d(4) 
300 RESTORE 340 
310 FOR 1=1 TO 4 
320 READ d(1) 
330 NEXT 1 
340 DATA 16,1,-16,-1 
350 RETURN 
390 REM read-messages routine 
410 RESTORÉ 460 
420 DIM m$#(10,43) 
430 FOR mi TO 10 
AUO READ m$(m) 
450 NEXT m 
460 DATA "“O.K. THINKING..." 
470 DATA "Illlegal entry: " 
480 DATA "Stone already on poin 
ta: 


490 DATA “Illegal. Ko on point: " 


500 DATA "“lllegal. Suicide on P 
oint: " 

510 DATA " O.K. GAME OVER." 

520 DATA "" 

530 DATA "How many handicap sto 
nes may I have (2-9) ?" 

540 DATA "Type your move (eg. H 
8), PASS or QUIT :" 

550 DATA “Do you want to play a 
gain CY/N) ?" 
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Black ="};iPE 


#8S0 IF p=i THEN PEN, S3:PRINT"O" 
::G0T0 1880 


1860 IF p=2 THEN PEN 1PRINT"O!— 


::GO0TO0 1880 

1870 PEN Z2:PRINT"+"; 

1880 NEXT x 

1890 PEN 3:PRINT TAB(34) y: 
1900 NEXT y 

1910 PRINT TAB(S)axiss 


1920. PEN _2:PRINT TABC3)"My last. 


move Wwas:"; 

1930 itcp/=location*:GOSUB Z260:: 
PEN 1:PRINT TAB(30)_atarii$ 

1940 LOCATE 16,23:PRINT atari2$ 
1950 RETURN 

1990 REM input routine 

Z000 isÆ=0 


2010 LOCATE 3, ipX:PRINT SPACES (62) 


2020 a$="" 

2030 LOCATE 3,ip%:FEN 3:PRINT me 
ss$(im) ; Ù 
2060 i$="":UWHILE 
:WEND 

2065 IF i$=CHR#$#(13) THEN 2120 
2070 IF i$<)>CHR$#(127) THEN 2090 


560 RETURN 
1260: 
1270 REM introduction routine 
1280 GO SUB 1340 
1290 GO SUB 1450 
1300 RETURN 
1340 REM game-init routine 
1345 LET stack=1 
1360 LET x$=" "7 LET y$=" 
LL 


1370 LET location=0: LET move=1 
1380 LET end=0 

1390 LET c(1)=0: LET c(2)=0 

1410 RETURN 

1450 REM title-screen routine 
1460 BORDER O0: PAPER O0: CLS 

1470 INK 2: PRINT AT 3,12:"sh23s 
hi sh23sh1" 

1480 PRINT AT 4,12;'"seh8lsh3 sh8 


1490 PRINT AT 5,12:"sh8 sh8 sh8 


LU 


1500 PRINT AT 6,12;"132 132" 
1510 PRINT AT 8,7; INK 5;"by Ma 
reus Jeffery" 

1520 PRINT : PRINT INK 3:"You w 
111 play the ": INK 7:"white"; I 
NK 3;" stones," 


1530 PRINT INK 3:'"and the compu 
ter (being weaker)" 
1540 PRINT INK 3:"wi11 have the 


"; INK 2;" red “: INK 3;"stone 
s with" 
1550 PRINT INK 3:" 
ap advantage." 
1560 LET 1p=15: LET im=8: LET iw 
=1: GO SUB 1990 
1565 LET hand=CODE (a$)-48 
1570 IF hand<2 OR hand>9 THEN G 
O TO 1560 
1590 RETURN 
1730 REM print-board routine 
1750 PRINT AT 0,0; INK 6;" Stone 
8 captured by:"; 


& handic 


1760 PRINT INK 7;:" Move " 
1770 PRINT INK 6:" White="; INK 
5:c(2): 


1780 PRINT TAB 10; INK 6:;" 
k ="; INK 5;c(1): 

1790 PRINT TAB 27: INK 7;:move 
1810 FOR y=15 TO 1 STEP -1 

1820 PRINT AT 17-ÿy,5; INK 2:(" " 
+STR$ y)(LEN STR$ y TO ):" "; 
1830 FOR x=1 TO 15 


Blac 


i$="":)$=INKEYS 


2080 IF is2)0 THEN is/=is/-1:a$= 

LEFT$(a$, is4) : PRINT CHR$(S) ;" "; 

CHR# (ES); - 

2085 GOTO 2060 

2090 IF i$)>="a" AND i$<="z" THEN 
i$=CHR$S (ASC 1$)-32) 


-2100 IF is%<iw% THEN is4e is 1 : ia 


$=a$+i$:PEN Z:PRINT i$; \ 
2110 GOTO 2060 . } 
2120 RETURN ; ; à 
Zié0 REM méssage routine 


‘2190 LOCATE Ssmp: PRINT, FPNERES 


635; 

2Z00 LOCATE 3,mp4:FEN sprint me 
ssb(mm2);o$ prndé 

Z220 RETURN f 


2260 REM int- to-char routine 
2270 IF. itcp#=Ù THEN FEN 1:PRINT 
"Handicap" ;:RETURN ; 

2275 c=CHR#(i tepX-1é6xINT(i tcp” 
16)+64) :r#$=MIDHCSTRSÇINT (Gi tep!//1 
622,2) 

2280 PEN 1:PRINT at à RETURN 


1840 LET pp=PEEK (board+16%y+x) 
1850 IF pp=1 THEN PRINT PAPER 
L; INK 2;"O";: GO TO 1880 

1860 IF pp=2 THEN PRINT PAPER 


4; INK 7;"O":: GO TO 1880 

1870 PRINT PAPER 4; INK O:;:"+"; 
1880 NEXT x 
1890 PRINT 

1900 NEXT y 
1910 PRINT TAB 8; INK 2:;'"ABCDEFG 
HIJKLMNO" 

1920 PRINT INK 6;"Last move: ": 
1930 LET itcp=location: GO SUB 2 
260: PRINT TAB 20; INK 5:x$ 

1940 PRINT AT 20,20; INK 5;:y$: B 
EEP 1,0 

1950 RETURN 

1990 REM input routine 

2000 LET is=0 

2010 PRINT AT ip,0;:: FOR i=1 TO 

62: PRINT " “;: NEXT i 

2020 LET a$="" 

2030 PRINT AT ip,0: INK 7;:m$(1im) 


INK 23" y 


3 

2060 LET 1$=INKEY$: IF 1$="" THE 
N GO TO 2060 

2065 IF CODE 1$-13 THEN GO TO 2 
120 

2070 IF CODE 1i$<>12 THEN 
2090 

2080 IF 1s8>0 THEN LET is=is-1: 
LET a$=a$(1 TO LEN a$-1): PRINT 

CHR$ 8:;" ";CHR$ 8:: GO TO 2060 
2085 GO TO 2060 

2090 IF 1$>="a" AND 1i$<="z" THEN 

LET 1$=CHR$ (CODE 1i$-32) 

2100 IF is<iw THEN LET is=18+1: 
LET a$=a$+1$: PRINT INK 5;:1$; 

2110 GO TO 2060 

2120 RETURN 

2160 REM message routine 

2190 PRINT AT mp,0;: FOR m=1 TO 
30: PRINT " “;: NEXT m 

2200 PRINT AT mp,0; INK 2;:m$(mm, 
TO 26);0$:; 

2220 RETURN 

2260 REM int-to-char routine 
2270 IF itcp=0 THEN PRINT INK 
5; "Handicap";: RETURN 

2275 LET c$=CHR$ (itcp-16%INT (i 

tep/16)+64): LET r$=STR$ (INT (i 
tep/16)) Û 

2280 PRINT 


GO TO 


INK 5;:c#$:r#$;:: RETURN 


Crabes 


Pour que ce programme puisse tourner sur votre micro-ordinateur, 
il est nécessaire que ce dernier soit conforme à la norme MSX 


(son, couleur, graphisme). 


Vous devez maintenant aider une pauvre tortue 
à regagner la mer en évitant les crabes voraces 
qui patrouillent sur la plage... Chaque tortue 
amenée au but rapporte un point. Vous dispo- 
sez de cinq vies pour tenter de marquer un score 
maximal. Utilisez les touches du curseur pour 


avancer et pour reculer. 


10 REM ####Mu ut 

20 REM *# CRABES *# 

3O REM He 

40 SCREEN 0,0 

50 DEFINT A-Z 

60 KEY OFF 

70 WIDTH 39 

80 GOSUE 990 

90 GOSUB 1130 

100 GOSUB 840 . 

110 LOCATE 0,20,0 

120 PRINT "VIE(S) REST.";NP; 
130 A$=RIGHT$ (A$,1)+LEFT$ (A$,38) 
140 B$=RIGHT$(ER$,38)+LEFT$(B$,1) 
150 LOCATE O,X1,0 

160 PRINT A$; 

170 LOCATE 0,X2,0 

180 PRINT B$; 

190 LOCATE 0,X3,0 

200 PRINT A$f; 

210 LOCATE O0,X4,0 

220 PRINT B$; 

230 D$=INKEYS$ 


240 PY=PY+(STICK(O)=1)-(STICK(O)=5) 


250 IF PY>10 THEN FY=10 
260 IF PY=2 THEN 370 
270 C=VPEEK (PX+PY#40+1) 
280 IF C<>32 AND C<>128 THEN 550 
290 LOCATE PX,YP,0 

300 PRINT N$; 

310 LOCATE PX,PY,0 

320 PRINT P#; 

330 YP=PY 

340 T=T+1 

350 IF T>500 THEN 660 
360 GOTO 110 

370 LOCATE PX,YP,0 

380 PRINT N$; 

390 LOCATE PX,PY,0 

400 PRINT P$; 

410 BEEP 


420 
450 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 


FOR I=1 TO 200 
NEXT I 

LOCATE PX,FY,0 
PRINT N$; 

PY=10 

YP=PY 

S=5+1 

LOCATE 0,0,0 

PRINT "SCORE :";5S; 
LOCATE 19,0 

PRINT "RECORD :";R; 
GOSUB 1040 

GOTO 110 

NP=NP-1 

LOCATE PX,YP,0 
PRINT N$; 

LOCATE PX,PY,0 
PRINT CHR$ (128) ; 
GOSUB 1090 

IF NP=O0 THEN 660 
PFY=10 

YP=PY 

GOSUB 1040 

GOTO 110 

CLS 

IF S>R THEN R=S 

IF T<500 THEN 710 
LOCATE 10,8,0 
PRINT "##*% TEMPS ECOULE ##"; 
LOCATE 10,12,0 
PRINT "SCORE :";5S; 
LOCATE 10,16,0 
PRINT "RECORD :";R; 
LOCATE 10,20 

PRINT "UNE AUTRE ?"; 
IF INKEY$<>"" THEN 770 
D$=INKEYS 

IF D$="" THEN 780 
IF D$#<>"N" AND D$<>"n" THEN 100 
CLS 

LOCATE 0,0,1 


830 END 
840 CLS 

850 COLOR 1,11 
860 P$=CHR$ (128) 
870 N$=CHRS (32) 
880 5=0 

890 NF=5 

900 PX=19 

910 PY=10 

920 YP=PY 

930 X1=4 

940 X2=5 

950 X3=7 

960 X4=8 

970 T=0 

980 RETURN 

990 FOR I=1 TO 39 
1000 READ A 

1010 A$=A$+CHRS (A) 
1020 NEXT I! 

1030 B$=A$ 

1040 X=RND (1) #35+2 


1050 A$=RIGHT#(A$,X)+LEFT$(A$,39-X) 


1060 RETURN 


1070 DATA 32,129,1350,32,32,129,130,32,32 
532,129,1350,32,52,52,32,352,129,130,32 
1080 DATA 52,32,129,130,352,32,32,129,150 
132,32,129,130,52,32,129,130,32,32 

1090 PLAY "T10003561604C2036804C16E2T150C 
BE1668F+16F8D+16E8C1603A861604C4C32E 16 


1100 FOR 1=1 TO 4000 

1110 NEXT 1 

1120 RETURN 

1130 FOR 1=0 TO 23 

1140 READ À 

1150 VPOKE 3072+1,A%4 

1160 NEXT 1 

1170 RETURN 

1180 DATA 12,45,63,30,30,63,45,0 
1190 DATA 7,15,31,31,18,16,12,0 
1200 DATA 56,60,62,62,18,2,12,0 
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Magie! 

SMC Magic Mouse est l’un 
des premiers systèmes 
d'interface graphique 

« souris » développés pour 
le C64. Bien qu'il ne 
s'agisse pas à proprement 
parler d'un logiciel 
d'environnement graphique 
(avec fenêtres, icônes, 
souris et programmation), 
c'est certainement un outil 
précieux de développement 
pour les programmeurs. La 
souris se connecte au port 
manettes de jeu du 
Commodore. Les icônes à 
l'écran sont obtenues au 
moyen des trois boutons 
situés sur la souris. 

(CI. Crispin Thomas.) 
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Depuis l’arrivée du Macintosh sur le marché, et de sa souris, cette 
dernière fait des petits. La SMC Supplies Magic Mouse est la première 


souris destinée au C64. 


Lorsque la firme américaine Apple mit en vente 
son nouvel ordinateur Lisa, doté d’un périphé- 
rique inattendu, la « souris », les journalistes lui 
firent un accueil mitigé. La souris permettait de 
faciliter l’approche de l’ordinateur à l’utilisateur 
non averti. Toutefois, si dans les premiers temps 
la souris se révèle un auxiliaire précieux du 
néophyte, la pratique croissante de l’ordinateur 
amène rapidement à discerner ses limites, en par- 
ticulier un certain manque de précision. 

Étant donné le succès actuel des systèmes 
d’exploitation organisés autour de la « souris », 
il peut sembler difficile d’imaginer les polémiques 
que suscita cette interface au sein de l’industrie 
micro-informatique : était-elle acceptable, voire 
souhaitable? L’échec commercial de Lisa 
d’Apple, premier ordinateur doté de ce système, 
semblait confirmer que l’utilisateur final ne lui 
était pas favorable. 

Le succès ultérieur du Macintosh devait cepen- 
dant réduire les critiques et confirmer l’innova- 
tion d’Apple. Les attitudes envers la souris chan- 
gèrent complètement ; les fabricants incorporent 
maintenant systématiquement ce périphérique, et 
de nombreux fournisseurs mettent sur le marché 
de nouvelles interfaces graphiques pour des 
machines existantes. 


Magic Mouse de SMC Supplies est le premier 
produit de cette sorte disponible pour le C64. Un 
logiciel est livré avec la souris, sur cassette et sur 
disque. II comprend quatre programmes d’appli- 
cation. La souris SMC est plus grosse que la plu- 
part de ses congénères (125 X 66 X 50 mm), le 
double de celle d’Apple. Elle comporte sur sa face 
antérieure trois boutons de couleur, contre géné- 
ralement deux. Ils servent à sélectionner des fonc- 
tions selon les applications retenues. Une balle 
de caoutchouc dur, à l’intérieur, frotte contre 
deux encodeurs de position angulaire. 

Au départ, il s’agissait de faire une boule 
d’acier, mais cela se révéla irréalisable et le lan- 
cement du système fut reporté pour permettre la 
substitution par une boule de caoutchouc. La 
souris n’en fonctionne pas moins à la perfection. 


Programmes utilitaires 


Le progiciel de Magic Mouse n’est pas un système 
d’exploitation comme celui du Macintosh 
d’Apple. C’est plutôt un périphérique graphique. 
Les quatre programmes fournis sont : Hi-Res 
Designer (Mode haute résolution), Sprite Desi- 
gner (Figures graphiques), Icon Designer (Icônes) 
et Mouse Controller (Contrôleur de la souris). 

Pour utiliser le logiciel, il faut charger le fichier 
système et calibrer le curseur de la souris. Le 
système résidant sur disque est automatiquement 
chargé avec un menu principal désignant les qua- 
tre programmes utilitaires. La version cassette est 
légèrement différente, le fichier système faisant 
partie de Hi-Res Designer. Aussi, ce programme 
doit être chargé préalablement à l’utilisation des 
trois autres utilitaires. En outre, le curseur doit 
être positionné dans le coin inférieur droit avant 
démarrage. 

Hi-Res Designer est un programme de type 
« palette de couleurs » très semblable à celui de 
Koala Pad. Une fois chargé, l’écran se divise en 
cases ayant chacune une option : Palette, Dessin ou 
Remplir. En déplaçant à l’aide de la souris le cur- 
seur sur une option, et-en appuyant sur le bou- 
ton rouge de la souris (en validant), on retient 
l'option. De même, pour choisir la couleur de 
fond ou de premier plan, il suffit de déplacer le 
curseur en regard d’une des 16 lignes indiquant 
une couleur. Pour passer au fond, vous appuyez 
sur le bouton bleu. 

Les modules Icon et Sprite sont très sembla- 
bles et ne diffèrent que par leurs applications. 
Comme la plupart des programmes de cette 
nature, le module de conception de figures gra- 


phiques Sprite Designer vous propose une grille 
de 24 colonnes par 21 lignes. Un pixel est retenu 
en appuyant sur le bouton rouge lorsque le cur- 
seur recouvre la position voulue. Le lutin appa- 
raît dans une fenêtre située à l’angle supérieur 
droit de l’écran. Quand le curseur quitte la grille, 
un certain nombre d’options s’affichent dans 
le coin inférieur droit. Elles sont destinées à 
des applications telles qu’agrandir le lutin, en 
changer la couleur ou passer à une autre figure. 

Le module de création d’icône se présente de 
manière presque identique, avec une grille à 
l’angle et l’icône dans une fenêtre en haut de 
l’écran. Sa spécificité tient au fait qu’il génère du 
graphisme utilisateur (jeux de caractères) suscep- 
tible d’être sauvegardé et réutilisé. 

Le dernier programme de Magic Mouse est le 
contrôleur de la souris, Mouse Controller. Il ne 
fait pas fout à lui tout seul. Il fournit le pro- 
gramme pilote qui permet l'exploitation de 
l’ensemble. Bien qu’il soit à première vue le 
moins utile, ce module est en fait le plus riche, 
dans la mesure où il vous encourage à écrire vos 
propres logiciels pour la souris. 

L'avantage essentiel des systèmes à souris tient 
à la précision du positionnement du curseur qui 
favorise le placement des lignes et l’obtention des 
couleurs désirées. Un chiffreur est constitué d’un 
ensemble de nœuds interconnectés, mais sa réso- 
lution est inférieure à celle de l’écran. Aussi, lors- 
que le crayon optique est situé entre deux posi- 
tions, l’ordinateur ne peut détecter la position 
voulue et donne un résultat décalé. Comme on 
s’en doute, cela peut avoir des conséquences 
désastreuses pour le graphisme en cours. Avec 
une souris, le curseur ne réagit qu’aux déplace- 
ments très sensibles de la balle. Il reste donc bien 
en place tant que la souris n’est pas déplacée. 

Le système n’est cependant pas parfait. Cer- 
taines caractéristiques de Hi-Res manquent de 
convivialité. Par exemple, la commande RUB ne 
permet la suppression d’erreurs que pixel par 
pixel. Cela prend un temps considérable et peut, 
en outre, introduire d’autres erreurs si l’on se 
trompe de pixel. Une meilleure méthode consiste 
à supprimer tous les ajouts graphiques depuis le 
dernier recours au menu. Cela suppose de per- 
dre du travail correct, mais vous serez au moins 
sûr de reprendre sur de bonnes bases. 

Le manuel de Magic Mouse est un excellent 
guide utilisateur. Chaque programme comporte 
une explication complète du logiciel de dévelop- 
pement, des informations sur la manière d’incor- 
porer le module obtenu dans votre propre logi- 
ciel, et donne des programmes types. Cette 
démarche témoigne de la part de SMC d’une 
grande ouverture d’esprit et doit être mentionnée. 

Bien que Magic Mouse ne puisse rivaliser avec 
le Macintosh Emulator, il n’en constitue pas 
moins un outil de développement très apprécia- 
ble, semblable à la souris AMX ou au logiciel DR 
GEM. Son optique est certainement d’encoura- 
ger le développement de logiciels utilisateur. Cette 
approche n’est pas nécessairement commerciale, 
mais devrait assurer une longue vie au Magic 
Mouse. 


Matériel HE 


Développement artistique 
Ces images ont été 
obtenues en utilisant le 
module d'application haute 
résolution Hi-Res Designer 
avec la souris SMC Magic 
Mouse. Le programme 
permet les commandes 
habituelles pour ce genre 
de logiciel, dont LIGNE, TRACER, 
REMPLIR et CERCLE. Jusqu'à 
seize couleurs sont 
disponibles, ainsi que 
plusieurs modes de 
coloriage qui font varier 
l'épaisseur et la texture 

du trait. (CI. John 
Clementson/Images-écran 
de Dimension Graphics.) 


MAGIC MOUSE 


Magic Mouse se 
connecte au port 
manettes de jeux 
du Commodore 64. 


La souris est livrée avec 
quatre logiciels 
d'applications, sur disque 
ou sur cassette. 


DOCUMENTATION 


Le manuel donne tous 
les détails utiles sur 
l'installation de la souris, 
l'utilisation des logiciels 
existants et 
l'incorporation du module 
résultant dans le 
programme utilisateur. 


AVANTAGES 


La souris semble robuste 
et fiable. Les utilisateurs 
devraient facilement la 
mettre à profit pour 
transférer les lutins et 
leur propre graphisme. 


INCONVENIENTS 


L'ensemble manque de 
portée par rapport à de 
nombreux programmes 
orientés « interface- 
graphique », et risque 
d'être très vite dépassé. 
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La voix de son maître 
Notre schéma montre 
comment une note est 
enregistrée à l’aide 

du programme 

« Enregistrement 
numérique ». Pendant la 
phase d'enregistrement, le 
synthétiseur envoie un 
message note on quand la 
touche est appuyée et un 
message note off 
lorsqu'elle est relâchée. 
Ces messages sont 
stockés en mémoire, avec 
l'information de 
synchronisation qui 
enregistre combien 
d'intervalles de 2 ms se 
sont écoulés entre les 
événements. L'information 
de synchronisation entre 
les messages note on et 
note off est contenue dans 
deux octets dans notre 
exemple, pour illustrer 
comment est traité le 
dépassement en capacité. 
Pendant l'exécution, le 
programme utilise 
l'information de 
synchronisation pour 
retarder la transmission 
des messages note afin 
de reproduire le même 
motif musical. 
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La + HO + 
Haute-fidélité 


Avec l'interface MIDI, concevons un programme permettant 
à l’ordinateur d’agir comme unité d’enregistrement numérique 


et comme unité d'exécution. 


MÉMOIRE 
NOTE ON 
OCTET DE DUR 


RASE 


Quand les touches d’un clavier MIDI sont enfon- 
cées, ou quand une unité de commande est acti- 
vée, ces « événements » sont transmis sous la 
forme d’octets de données à la prise MIDI OUT 
située à l’arrière du synthétiseur. L’ordinateur 
peut servir également de source de données 
MIDI, transmises à un synthétiseur afin d’acti- 
ver ses circuits de génération sonore. Il est ainsi 
possible d’utiliser un ordinateur comme un 
séquenceur, ce qui permet d’entrer des séquen- 
ces musicales et de les éditer une à la fois à par- 
tir du clavier de l’ordinateur. Cela doit être fait 
avant la transmission par l’intermédiaire de 
l'interface MIDI afin d’activer le synthétiseur qui 
va jouer le morceau musical. Cette tâche est en 
fait assez simple; les possibilités de MIDI vont 
beaucoup plus loin. Imaginez un séquenceur 
utilisant les 16 canaux MIDI pour commander 
plusieurs claviers et une batterie électronique! 

Nous pouvons combiner diverses approches 
permettant à un ordinateur d’entrer en interac- 
tion avec des instruments MIDI afin de conce- 
voir un logiciel pouvant enregistrer dans la 
mémoire de l’ordinateur un morceau joué en 
temps réel. Puis, en réponse à une instruction, 
le programme pourra rejouer le morceau sur le 
synthétiseur en utilisant l’interface MIDI. Il s’agit 
ici d’un enregistrement numérique. 


ENREGISTREMENT 


MESSAGE NOTE ON 
ÉTAT HAUTEUR VITESSE 


MESSAGE NOTE OFF 
ÉTAT HAUTEUR VITESSE 


DO AU-DESSOUS DU DO MAJEUR 
NOTE OFF 


OCTETS DE DURÉEN 1 


Bien qu’il semble similaire à un enregistrement 
analogique sur bande magnétique, l’enregistre- 
ment numérique par l’intermédiaire de MIDI est 
vraiment différent. Lorsqu’une copie est effec- 
tuée sur bande magnétique, les sons musicaux 
sont codés selon des combinaisons magnétiques 
sur la surface de la bande, et la position de ces 
combinaisons détermine l’ordre dans lequel 
seront reproduits ces sons pendant l’exécution, 
ainsi que les intervalles entre chacun d’entre eux. 
Prenons deux notes enregistrées de cette manière 
et séparées par un intervalle de deux secondes. 
Pendant cet intervalle, la bande continue à défi- 
ler devant la tête de lecture bien que rien ne soit 
enregistré. Lors de l’exécution, la longueur de la 
section de bande à blanc détermine l’intervalle 
entre la production de la première note et celle 
de la seconde. 

Dans un système d’enregistrement numérique 
qui utilise MIDI, les deux notes correspondent 
aux deux événements « frappe de touche » et cha- 
cun de ces événements génère un message MIDI. 
L’enregistrement en temps réel pose la difficulté 
d’enregistrer l’intervalle de temps compris entre 
la réception du premier message MIDI et celle du 
second. Par analogie avec l’enregistrement sur 
bande, la meilleure façon de le faire pourrait 
consister à stocker les messages dans un tableau 


mémoire, tout en stockant les blancs correspon- 
dant à chaque unité de temps de l’intervalle. 
Ainsi, lors de l’exécution, les deux notes pour- 
raient être jouées en respectant le bon intervalle. 
Il est évident que cette méthode d’enregistrement 
serait assez gourmande en mémoire. 

Il existe une autre solution. Au lieu de stocker 
les valeurs de chaque blanc, il serait préférable 
de stocker une information d’intervalle sous la 
forme d’un seul octet. Par exemple, si les deux 
notes sont séparées par un intervalle de 50 uni- 
tés de temps, un octet contenant la valeur d’inter- 
valle 50 serait entré dans le tableau mémoire au 
lieu des 50 octets blancs. 

Cela permet une économie substantielle de 
mémoire, mais il est difficile de prévoir la lon- 
gueur maximale pouvant être stockée dans une 
mémoire donnée. Les morceaux impliquant une 
exécution très rapide nécessitent plus d’octets 
pour enregistrer le grand nombre de messages 
note on/off transmis par le synthétiseur qu’un 
morceau lent de la même longueur. 

La mise en œuvre de la roue de variation de 
registre tend à utiliser de grandes quantités 
de mémoire en raison du nombre important de 
messages MIDI qu’elle génère. 


Programme 
d'enregistrement numérique 


Dans le programme décrit ici, nous avons besoin 
d’un compteur pour enregistrer les intervalles de 
temps compris entre les divers événements. Le 
compteur que nous utilisons est une variable 
nommée CLOCKS. La vitesse d’incrémentation du 
compteur définit la précision avec laquelle la 
synchronisation peut être déterminée, et par 
conséquent la fidélité de l’enregistrement. 

Un compromis doit être trouvé lors de la sélec- 
tion de l’intervalle de temps optimal — nous 
devons choisir un intervalle d’environ 2 ms. Cet 
intervalle est à la fois plus long que les temps 
d’exécution des routines et assez court pour ne 
pas affecter la précision de l’enregistrement. Il 
est nommé résolution de l’enregistrement, 
puisqu'il est l’intervalle de temps le plus court 
pouvant être enregistré. L’intervalle est généré 
par un chronomètre de l’une des puces CIA ou 
VIA du micro. 

Le format du message MIDI doit être légère- 
ment étendu pour tenir compte de la synchroni- 
sation. Pour cela, nous plaçons devant chaque 
message MIDI un seul octet représentant le nom- 
bre d’intervalles de temps qui se sont écoulés 
depuis le dernier message. Cet octet peut enre- 
gistrer jusqu’à 239 unités de temps et ses valeurs 
peuvent être comprises entre 50 et $EF. 

Si 240 intervalles s’écoulent sans avoir reçu de 
message, un message de dépassement de capacité 
est enregistré. C’est l’octet $F0. Finalement, un 
message à un octet, $FF, a été choisi pour mar- 
quer la fin d’une séquence. Les valeurs d’octet 
$F1 à $FE sont réservées pour vos propres mar- 
queurs de programme. 


PIANAUTO 


8883e 


6 rs ,240,1 


320 
330 
340 
350 
360 
370 
380 
390 
400 


E 
= 
e 


Fonctionnement du 
programme 

Le fonctionnement du 
programme 

« Enregistrement 
numérique » pour le 
Commodore 64 est assez 
simple. La sélection de 
l'option « Record » 
enregistre les événements 
se produisant sur le port 
MIDI. Elle cesse lorsque la 
mémoire est épuisée ou 
quand on appuie sur la 
barre d'espacement. 
L'option « Playback » 
reproduit sur MIDI OUT 

la séquence enregistrée. 
L'exécution se poursuit 
jusqu'à la fin de la 
séquence ou jusqu'à ce 
qu'on appuie sur la barre 
d'espacement. Tout 
enregistrement écrase 
l'enregistrement précédent. 
(CI. Marcus Wilson-Smith.) 
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STA 


622 


STA 


THU48t8 494 


JSTART TIMER B 
620 JSR GETIN 


1PRESS ‘E’ TO EXIT 


n 
© 
RE 


_ NOT EXIT | 


j++++ REAL TIME PROG STARTS HERE 


SAVE RECORD/PB COMMAND 


SCAN LAST ROW OF KEYS | 


PHP 3SAVE Z FLAG = RECORD 


; 
PO0 = # PLAY ROUTINE 
; 


BNE P07 JEXIT 1F END REACHED 
PLP JADJUST STACK 
JMP C20 JEXIT PROCESS 
JCARRY SET = #F0 READ 


BEQ P30 1JMP 1F NO TIME TO UWAIT 


BNE P10 3JMP IF NOT TIMED OUT 
BCcs POS F3READ NEXT CLOCK IF #F0 


3 
P30 = # 3READ NEXT MESSAGE BYTE 
JSAVE DATA BYTE 
= JWAIT FOR TX REGISTER 


P35 3JMP IF STILL FULL 

3GET DATA 
DATREG 3SEND. TO MIDI 
Ps0 3JMP IF NOT STATUS BYTE 
GETNO 3GET NO OF DATA BYTES 
DEX 3DEC. BYTE COUNT 
P30 3GET NEXT DATA BYTE 


Pos 3GET CLOCK BYTE 
= * 3RECORD ROUTINE 


CLOCKS 3CLOCKS = 0 
3INIT TO NO DATA 


= 3CHECK FOR MIDI DATA 


R40 JJMP 1F DATA 


R10 | UMP IF WAITING 
R20 1 3JMP IF MID-MESSAGE 


= / 3GET THE DATA 

RSO 3JMP IF STATUS BYTE 

RIO | 3JMP IF NOT CHANNEL DATA 
ReO 3JMP. 1F MID-MESSAGE 
NOBYTS . JRESET BYTE COUNT 

= || iSTATUS BYTE PROCESS 

R20 | | IGNORE IF SYS REALTIME 


ROS . jJMP IF NOT CHANNEL STAT. 
| jGET NO OF DATA BYTES 


[RECORD MIDI DATA 


{DOESN 1 AFFECT CARRY 


:HADJUST STACK.  : 
!ÿCHECK FOR, REC/PB 
yJMP IF PLAYBACK : 


AWAIT FOR NEXT : COMMAND 
k CHECK FOR TIMER B 
32 FLAG = NOT TIMED OUT 


{STORE DATA IN! MEMORY 


© 3CHECK MEMORY FREE 


JERROR MESSAGE : 
iRESET PROGRAM | 


: JREAD DATA FROM MEMORY 


: 3UPDATE. MEMORY. POINTER 


3GET NO OF DATA BYTES 


FOR STATUS IN ACC. : 


.BYTE ’R = RECORD,P = PLAY,E = :EXIT’,80D,0 


 JINIT TO 2 DATA BYTES 


F1 DATA BYTE IF CO<=A<E0 


#ADD 1 FOR STATUS 


3PRINT STRING 


| MESSAGE TABLE 


-BYTE 147,/RECORDING: ,80D,0 


Ré0 = * : 
PHa : 
LDA CLOCKS : 
JSR STORE 
STY CLOCKS 
PLA 4 
RGO =» 

JSR STORE 
DEX 

BEQ R10 
BNE R20 

3 

CHECK = # 

; ‘ 
LDA #Dco1 
EOR HSTOPKY 
BNE Cao 

PLA 

PLA 

PLP 

BNE c20 

LDA MSFF 
STA CMEM) ,Y 
c20 = * 

CLI : 
LDA ws00 
JSR STROUT 
JMP 620 

3 

C40 = 

LDA $0coD 
AND “s02 
RTS 

3 

STORE = * 

; 

STA CMEM) ,Y 
INC FREMEM 
BNE POINT 
INC FREMEM+ 1 
BNE POINT 
PLA 

PLA 

PLA 

LDA #s03 
JSR STROUT 
JMP C20, 

3 

READ = * 

; : 
LDA CMEM) ,Y 
; 

POINT = # 

; 

INC MEM 
BNE P20. 
INC MEM+1 
P20 RTS 

3 

GETNO = * 

3 

3 

LOX ws02 
CMP so 
BCC N10 
CMP WSEO 
8cs N10 

DEX : 
N10 STX NOBYTS 
INX 

RTS 

3 

STROUT = # 

; 

ASL A 

TAX 

LDA MESTAB ,X 
STA PTR : 
LDA MESTAB+1 ,X 
STA PTR#1 ; 
LDY #s#00 
M10 LDA CPTR) ,Y 
BEQ M70 \ 
JSR CHROUT: 
INY i 
BNE M10 
M70 LOY. ##00 
RTS | 

3 

3 

MESTAB = * 
«WORD MESS0 
.WORD MESS1 
.WORD MESS2 
.WORD MESS3 
MESS0 

MESS1 

MESS2 


.BYTE 147, /PLAYBACK’ ,80D,0 


MESS3 .BYTE ‘OUT OF MEMORY’,#00,0 


LOUMEM = # 
FRBYTS = LOUMEM - #D00 


ÿ START 
|: 08 DR 


OF DATA MEMORY 


Liste active 


Voyons pourquoi il peut être utile de savoir comment le lisp 
représente des structures de données et illustrons par quelques 


exemples diverses fonctions. 


Pour disposer d’une notation cohérente qui 
puisse facilement traiter de manière identique des 
identificateurs, des caractères et des listes, LISP 
utilise systématiquement des pointeurs. Ils peu- 
vent être facilement simulés dans tout langage, 
y compris en BASIC. Par exemple, si vous don- 
nez l'instruction suivante : 


POKE 100,55: POKE99,100 (pour la plupart des micros) 
ou : 
2100 = 55 :29 = 10 (BBC Micro/Electron) 


les positions 100 et ® comporteront les valeurs 
assignées. On peut considérer la valeur située à 
la position ® comme un pointeur sur la position 
10. Aussi, si nous donnons la commande : 


PRINT PEEK (PEEK (99)} 
ou 
PRINT ?(299) 


nous obtenons la valeur 55. Remarquez que, 
pour certains micro-ordinateurs, les positions ® 
et 10 peuvent résider en ROM, et ne pourront 
donc pas changer. 

Il est bien sûr possible de créer des pointeurs 
vers toute position de la mémoire. Mais, si la 
position visée dépasse 25, il faudra utiliser deux 
octets afin d’être en mesure de couvrir la four- 
chette allant de 0 à 6555. Si nous supposons 
maintenant que la valeur 55 est à son tour un 
pointeur d’une autre position, et ainsi de suite, 
nous obtenons la structure de liste indiquée. 


FE | 
Û POINTEURS 


$ re 
/ 


« QUEUE » DE LA LISTE 


RÉFÉRENCE AU DÉBUT DE LA LISTE 
2" 


« TÊTE » DE LA LISTE 


C’est malheureusement de peu d’utilité dans 
la mesure où la liste ne comporte pas encore 
d'informations. Pour lui en donner, on combine 
des positions pour qu’il y ait deux pointeurs à 
chaque nœud. 


Nous pouvons maintenant représenter la liste : 


4 


C’est parfait pour des listes infinies, mais nous 
devons pouvoir également les arrêter. On y par- 
vient facilement en adressant le dernier pointeur 
de la liste à la liste nulle. La syntaxe NUL corres- 
pond à la liste vide. La liste finale devient donc : 


ABCD) 


> 
œ 


Une liste qui contient une autre liste suppose 
un pointeur gauche vers une nouvelle liste, à la 
place d’un atome dans le cas précédent. Aussi la 
liste : 


((ABCIDEF) 
serait représentée de la sorte : 


+ 


1 Il 


141 


Î 
l 
Æ_ ne 
+ = 
A B [es 


Le fonctionnement de CAR et de CDR doit main- 
tenant vous être parfaitement clair. CAR, l’en-tête 
de l’argument, est le pointeur gauche du pre- 
mier nœud de l’argument. Inversement, CDR, 
qui représente tout sauf l’en-tête de son argu- 
ment, est simplement le pointeur droit du pre- 
mier nœud. Aussi, si nous appelons la liste 
complète L : 


CONSIICAR L} (CDR Li) 


donne la liste d’origine, L. 
CONS est donc une méthode d’élaboration de 
listes. II met ses deux arguments sous la forme 
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d’une nouvelle liste, et donne comme résultat le 
pointeur du premier élément de la nouvelle liste. 
Avec CONS, on peut créer toute structure de liste, 
même si le nombre considérable d’appels CONS 
peut devenir fastidieux — d’où la fonction 
« sténo » LIST. 

Il faut remarquer qu’il est toujours préférable 
d’ajouter de nouvelles informations en tête de 
liste en utilisant CONS. Quand on ajoute des élé- 
ments en fin de liste, il est nécessaire de copier 
la liste d’origine, le pointeur final de la liste pre- 
mière pointant sur l’élément suivant. 

Certaines versions LISP disposent d’une ins- 
truction spécifique pour cela, APPEND. Mais elle 
est moins efficace que CONS. Si la vitesse devient 
cruciale, il est parfois possible d’utiliser une ins- 
truction pour changer le pointeur incriminé dans 
la liste première, plutôt que d’avoir à faire une 
copie, mais ce genre de « truc » est réprouvé par 
les puristes… 

Pour conclure cette suite d’articles sur LISP, 
voici l’étude complète d’un problème bien connu. 
Le problème consiste à placer huit reines sur un 
échiquier de telle sorte qu’elles se neutralisent 
(qu'aucune ne puisse attaquer). À priori, il doit 
y avoir exactement une reine par case, en ligne. 
La difficulté est de les disposer de sorte que deux 
reines ne se croisent pas. 


Le problème des huit reines 


Supposons que chaque colonne de l’échiquier soit 
tenue par une reine. Elles seraient disposées (de 
1 à 8) selon leur rang dans une liste appelée REI- 
NES. La coordonnée en rangée (spécifiée par la 
valeur dans REINES) est variable, et calculée par 
LISP. 


REINES R1 R2 R3 R4 R5 R6 R7 R8 


Le programme commence avec la liste REINES, 
vide. A chaque étape nouvelle, une reine est pla- 
cée à la rangée { au début de la liste. Sa position 
(et celles d’autres reines peut-être) sera changée 
(fonction CHANGER) jusqu’à ce que toutes les rei- 
nes soient en sécurité. Cette nouvelle liste devient 
REINES, des nouvelles étant ajoutées après le 
départ, et ainsi de suite. 

Ce processus se poursuit jusqu’à ce que la liste 
comporte huit reines. La liste est alors imprimée 
par AF-ECHIQUIER. La fonction première, que nous 
appellerons RESOLUTION, s’écrit donc de la sorte : 


(DEFON RESOLUTION (} 
(ASSIGNERQ REINES (] } 
(BOUCLER (UNTIL EQ (LONGUEUR (REINES) 8) 


(ASSIGNERQ REINES (CHANGER (CONS 1 REINES))} 
(AF _ ECHIQUIER ‘(OR ON OB Q K KB KN KR] REINESI) 

On voit que RESOLUTION, sans argument, met 
initialement en place la liste vide REINES. La fonc- 
tion BOUCLE assigne alors REINES à la nouvelle 
valeur de la liste changée (CHANGER) pour la reine 
de rangée |, suivie de la liste précédente. Cette 
BOUCLE est exécutée UNTIL (jusqu’à ce que) LONGUEUR 
de REINES soit EFQuivalent à 8. La liste finale est 
ensuite affichée. 

Nous venons d’utiliser trois nouvelles fonc- 
tions : LONGUEUR fournit simplement le nombre 
d’éléments dans son argument, et elle est définie 
de la sorte : 


(DEFON LONGUEUR (L (N)) 

(ASSIGNERQ N 0) 

(BOUCLE (WHILE L N} 
(ASSIGNERQ N (AJOUTER N)) 
(ASSIGNERQ LICDR L)} }) 


L’argument N donné entre parenthèses est la 
manière propre à LISP Acornsoft d’indiquer les 
arguments optionnels. Ici, N n’est jamais affecté 
à la fonction, et joue seulement le rôle d’une 
variable locale. 

L’autre fonction, AF-ECHIQUIER, combine les 
éléments de ses deux listes d'arguments pour 
générer un état de sortie. La fonction est définie 
ainsi : 

(DEFON AF _ ECHIQUIER (RANGEES COLS) 

(COND (INULLE RANGEES) VRAI) 
(VRAI/ (AFFICHERC (CAR RANGEES) (CAR COLS)) 
(AF_ ECHIQUIER (CDR RANGEES) (CDR COLS)} }}) 


Les deux listes sont censées être de la même 
longueur, aussi la fonction s’achève lorsque la 
première condition est VRAIE (liste vide). Faute de 
quoi, le premier élément de chaque liste est affi- 
ché (avec un RC), et la fonction s’appelle elle- 
même pour le reste de chaque liste. 

La troisième fonction, ALTER, est celle qui fait 
tout le travail. Elle se définit comme suit : 


(DEFON CHANGER (REINES) 
(COND ((EQ (CAR REINES) 9) 
(CHANGER (CONS (AJOUT1 (CADR REINES) 
(CDDR REINES) }}) 
{(SAUVEGARDER REINES) REINES) 
(VRAI (CHANGER ICONS (AJOUT1 (CAR REINES)} 
{CDR REINES) }))}} 


CHANGER commence par vérifier si la dernière 
reine introduite a été déplacée en haut de l’échi- 
quer (rangée 9). Si c’est le cas, une ou plusieurs 
des reines positionnées en dernier devront être 
déplacées. 

Souvenez-vous que cette reine est partie de la 
rangée | et aura essayé toutes les rangées (selon 
la troisième condition de CHANGER). Cela signifie 
que cette reine ne peut trouver place dans l’échi- 
quier courant. Aussi CHANGER s’appelle alors lui- 
même avec le reste de la liste REINES (tout sauf la 
reine en question). 

CHANGER incrémente aussi la rangée de la der- 
nière reine. Cela s’appelle « remonter l’algo- 
rithme » et c’est assez courant pour ce genre de 
programmes. Si la deuxième condition donne 


VRAI, toutes les reines en place sont sauvegardées 
(SAFE), et la liste en est communiquée. 

La seule fonction qy’il reste à définir est SAU- 
VEGARDER, qui vérifie si toutes les reines présentes 
sont en position sûre. Puisque la position dans 
la liste définit la colonne (deux reines ne peuvent 
figurer à la même position dans la liste), nul 
besoin de vérifier si des colonnes se croisent. II 
ne reste donc que les rangées et les diagonales à 
vérifier. Soit la fonction PASDEVISAVIS qui donne 
VRAI quand aucune reine ne se trouve dans le 
champ des reines précédentes. SAUVEGARDER se 
définit ainsi : 

(DEFON SAUVEGARDER (REINES) 

(COND (NULLE REINES) VRAI) 
(VRAI (ET (PASDEVISAVIS (CAR REINES) 
(CDDR REINES] 1) 
(SAUVEGARDER (CDDR REINES)) }))} 


Il peut être plus facile de définir ainsi SAUVE- 
GARDER : « La première reine de la liste REINE n’est 
pas vis-à-vis des autres reines de la liste, et tou- 
tes les reines du reste de la liste sont sauves. » 

Il ne reste plus qu’à définir la fonction PASDE- 
VISAVS, qui doit retourner la valeur VRAI s’il n’y 
a pas d’intersection rangées-colonnes. A savoir : 


(DEFON PASDEVISAVIS (NOUVELLE RESTE COL) 
(COND (NULLE RESTE) VRAI) 
(VRAI (ET (NON(EQ NOUVELLE (CAR RESTE) 
{NON (EQ COL 
(ABS (DIFFERENCE NOUVELLE (CAR RESTE))})) 
{PASDEVISAVIS NOUVELLE (CDR RESTE) (ADD1 COLI)}}}) 


NOUVELLE représente la dernière reine mise en 


Un problème royal 

Le problème des huit 
reines fournit une bonne 
illustration de résolution 
d’un problème par 
l'utilisation des 
performances de Lisp en 
matière de manipulation de 
listes et de fonctions 
récursives. Avant d'étudier 
la réponse donnée ici, 
essayez de placer huit 
reines sur un échiquier de 
sorte qu'aucune ne menace 
les autres. Vous n’avez pas 
besoin de savoir jouer aux 
échecs, il suffit de savoir 
qu'une reine peut se 
déplacer d’un certain 
nombre de cases en ligne 
droite (diagonale, verticale 
et horizontale) et prendre 
n'importe quel nombre de 
pièces sur son passage. 


place, RESTE faisant allusion aux autres. S’il y a 
d’autres reines sur l’échiquier (NUL RESTE donne 
FAUX), la fonction ET donne VRAI lorsque : 

1. La rangée occupée par une reine n’est pas 
la même que celle de la première reine venant 
ensuite dans la liste. 

2. Les reines ne sont pas sur la même diago- 
nale. On s’en assure en vérifiant que la différence 
ABSolue de rangée n’ëst pas égale à la différence 
de C0Lonnes. COL est le nombre de colonnes entre 
une reine et la suivante dans la liste (initiale- 
ment |). Nous avons défini ABS de la façon sui- 
vante : 


(DEFON ABS (NOMBRE) 
{COND (IMINUSP NOMBRE) (MINUS NOMBRE)) 
(VRAI NOMBRE) }) 


3. 1 et 2 restent vrais pour une reine et sa sui- 
vante. On le vérifie par la fonction qui s’appelle 
elle-même avec tous les éléments de la liste RESTE 
sauf le premier, et en incrémentant la différence 
de C0Lonnes. 

Les définitions nécessaires sont maintenant en 
place. L’illustration ci-dessous montre la solution 
mise en œuvre. 

Si vous disposez d’une version LISP, peut-être 
voudrez-vous essayer ces routines. Souvenez-vous 
qu’elles ont été écrites en utilisant Acornsoft 
LISP, mais elles devraient être facilement trans- 
férables sur d’autres systèmes. Remonter dans les 
algorithmes peut se révéler complexe, mais vous 
devriez y parvenir en imprimant la liste REINES 
dans la fonction RESOLUTION, avant chaque appel 
à CHANGER. 
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Contrôle du Microdrive 


Après avoir vu les codes crochets utilisés par l’Interface 1, 
considérons les fonctions concernant l’exploitation 
des Microdrive, un périphérique bien utile du Spectrum. 


Les accès au Microdrive sont réalisés soit à l’aide 
des codes crochets, soit en appelant directement 
les routines ROM de l’Interface 1. Toutefois, 
cette dernière procédure n’est pas toujours 
recommandée, puisque plus d’une Interface 1 
ROM peut être présente. Nous examinerons donc 
ici les treize codes crochets qui nous sont four- 
nis pour utiliser le Microdrive. 

Auparavant, voyons quelques principes 
sous-jacents à l’emploi des Microdrive. Après le 
formatage, une cartouche est divisée en 255 « sec- 
teurs », qui peuvent être considérés comme 
l’unité physique de stockage d’information sur 
une cartouche. Chacun consiste en un en-tête 
(donnée contenant, entre autres, le nom de la car- 
touche), un bloc de données, qui contient éven- 
tuellement le nom du fichier utilisant ce secteur, 
quelques autres données et un enregistrement de 
512 octets. L'opération de formatage comporte 
aussi des marques pour référencer dans la car- 
touche des secteurs de bande qui ne sont pas 
utilisables. 

Comme toute autre communication avec des 
dispositifs d’E/S dans le système Spectrum, la 
communication avec les Microdrive est effectuée 
via un canal. Pour les Microdrive, elle prend la 
forme d’une zone de mémoire de 595 octets. 
Associée à ce canal, il existe une mappe Micro- 
drive de 32 octets, qui est fixée par le système 
d’exploitation pour dire aux différentes routines 
quels sont les secteurs libres à utiliser. Elle indi- 
quera les secteurs inutilisables et ceux déjà 
employés pour stocker d’autres informations. 

Le canal est stocké dans la zone de la mappe 
mémoire Spectrum appelée « zone canal Micro- 
drive ». Chaque fois qu’un canal est fixé, la 
mémoire comprise entre la fin de la zone canal 
Microdrive et STKEND est déplacée vers le haut en 
mémoire pour faire de la place. De même, quand 
un tel canal n’est plus nécessaire, il est fermé et 
la mémoire rabaissée. 

Les canaux Microdrive sont fixés par le 
système de deux manières : explicitement, 
lorsqu'un fichier est requis par une commande 
OPEN, ou implicitement, quand le système ouvre 
un canal pour effectuer une opération. C’est le 
genre de chose faite par la commande SAVE du 
Microdrive — le canal ouvrant est dit « impli- 
cite » parce qu’implicitement un canal est ouvert 
pour accomplir la commande, même si nous ne 
utilisons pas directement. Un canal ouvert expli- 
citement peut aussi être fermé manuellement, tan- 
dis que cela se fait automatiquement pour un 
canal implicite. 


Nous donnons un schéma montrant la struc- 
ture d’un canal Microdrive. Vous remarquerez 
la ressemblance entre les premiers octets de ce 
canal et les canaux que nous avons fixés pour 
envoyer l’information à l’écran ou lire les don- 
nées à partir du clavier. 

L’adresse de mappe Microdrive est contenue 
dans le canal, et nous pouvons avoir une idée de 
l’espace disponible sur une cartouche en exami- 
nant la mappe de cette cartouche. En réalité, c’est 
ainsi que la fonction BASIC CAT vous fournit les 
données concernant l’espace restant sur une car- 
touche. Si vous voulez considérer une mappe 
Microdrive, alors essayez la routine suivante 
(tapez NEW d’abord) : 


10 OPEN #5;« M; 1;ctestprogy 

20 start = PEEK(23870) + 256" PEEK (23871) 

30 FOR 1=start TO start +31 

40 LET sector =PEEK(|) 

50 FOR J=1 TO 8 

60 F sector/2=INT(sector/2)THEN PRINT «0»; 
70 1F sector/2< >INT(sector/2} THEN PRINT «1»: 
80 LET sector =sector/2:LET sector =INT(sector) 
90 NEXT J 

100 PRINT 

110 NEXT | 

120 CLOSE #5 


En exécutant ce programme, vous voyez donc 
qu’un 1 indique un secteur inutilisable ou déjà 
utilisé, et qu’un 0 indique un secteur libre. Vous 
aurez peut-être envie de modifier ce programme 
pour qu’il affiche le total d’espace libre sur la 
cartouche. 

Quant à la grande partie de 512 octets de don- 
nées dans le diagramme structure de canal, le SE 
la remplit avec les données à écrire. Les données 
Sont écrites sur cartouche soit si le tampon est 
plein, soit si on exécute une commande CLOSE# 
(ou son code crochet équivalent). Dans le dernier 
cas, le tampon s’inscrit sur la cartouche, et cet 
enregistrement est marqué comme une « fin de 
fichier » (E0F, end of file). Il peut aussi être écrit 
dans un troisième cas en utilisant un code 
crochet, comme nous le verrons plus tard. Nor- 
malement, donc, la cartouche sera inscrite à 
intervalles de 512 octets. 

Voyons à présent les codes crochets servant à 
contrôler le Microdrive. 

e Code crochet 33. I] fait démarrer le moteur 
dans une unité de Microdrive spécifiée (proces- 
sus fréquemment appelé « choix du lecteur »). 
Les Microdrive sont numérotés de 1 à 8. La rou- 
tine peut aussi servir à arrêter tous leurs moteurs. 


Un point important doit être noté ici : la routine 
peut retourner avec les interruptions invalidées. 
Si donc vous utilisez cette routine, la première 
chose à faire au retour est d’émettre une com- 
mande El. 

La routine est simple à utiliser. On commence 
par mettre dans le registre À le numéro du lec- 
teur souhaité. Ensuite, on utilise RST #8 pour 


Contient &0008 


Contient &0008 


«Mi = explicite, «Mn + 128 = implicite 
Adresse de routine de sortie 
ROM fantôme 


Adresse de routine d'entrée 
ROM fantôme 


CHLENG 
Contient 595 décimal 


CHBYTE Pointeur de position courante 
dans le tampon 

CHREC Numéro d'enregistrement dans le fichier 
CHNAME 

Nom de fichier (10 caractères) 


| 


Bit 0 mis = écrire, réinitialisé = lire 
Bits 1 à 7 inutilisés 
CHDRIVE numéro de lecteur (1 à 8) 


CHMAP Adresse de mappe Microdrive 
associée à ce canal 


Mémoire de travail en-tête 


E 


LM 


HDFLAG Bit 0 mis = en-tête 
Numéro de secteur (0 à 255) 


Inutilisé (contient &0E31) 


Nom de cartouche 
(10 caractères) 


| 
| 
| 
| 
Î 


| 


| LA 


| 


Total de vérification pour en-tête 


Mémoire de travail données 


Bit 1 mis = EOF; bit 2 mis = pas fichier 
PRINT 
Numéro d'enregistrement (0 à 255) 


Nombre d'octets dans fichier 
(maximum = 512) 


Nom de fichier (10 caractères) 
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appeler le code crochet. En mettant la valeur 0 
dans le registre À on éteint les lecteurs. Il est 
aussi possible d’éteindre les Microdrive en géné- 
rant une erreur en BASIC. Cela peut se faire de 
deux façons : si vous essayez d’allumer un lec- 
teur qui n’est pas connecté, ou bien un lecteur 
ne contenant pas de cartouche formatée. 

e Code crochet 34. Cet appel très utile permet 
d’ouvrir un fichier sur une cartouche. Nous 
allons voir brièvement comment. Une fois appe- 
lée, la routine vérifie le lecteur pour voir s’il existe 
un fichier du nom que vous avez donné. Si oui, 
alors le fichier est ouvert pour la lecture. Sinon, 
il sera ouvert pour l’écriture. Cela ressort de l’état 
du drapeau lecture/écriture du canal concerné 
par cet appel : le bit 0 est à 0 pour un fichier lec- 
ture et à 1 pour un fichier écriture. 

Considérons ce qui se passe en fait lorsque 
vous utilisez cet appel. Les variables système 
fixées par l’Interface 1 sont demandées; donc, 
s’il y a un doute sur leur présence, il faut utiliser 
le code crochet 4 pour les fixer. Le numéro de 
lecteur est alors stocké aux adresses 23766 et 23767, 
l’octet lo d’abord. Les adresses 23770 et 23771 doi- 
vent ensuite être fixées pour contenir la longueur 
du nom que vous voulez utiliser pour le fichier, 
et les adresses 23772 et 23773 contiennent l’adresse 
du nom de fichier en mémoire. Dans les deux cas, 
les valeurs sont stockées avec l’octet lo en pre- 
mier. Un endroit utile pour stocker temporaire- 
ment le nom de fichier est le tampon imprimante. 

Une instruction EXX doit être exécutée et la 
paire de registres HL sauvegardée sur pile avant 
d’utiliser la routine, et restaurée avant d’effec- 
tuer le retour au BASIC. Le code crochet est 
ensuite appelé comme d’habitude, avec RST #8. 
Au retour, un canal est fixé dans la zone canal 
Microdrive, et le registre IX contiendra l’adresse 
de début du canal. Les erreurs qui peuvent être 
engendrées par cet appel sont les suivantes : 

1. Le fichier que vous voulez ouvrir n’est pas 
un fichier de données. 

2. Le premier secteur d’un fichier ouvert pour 
la lecture ne peut pas être trouvé. 

3. Vous avez essayé d’ouvrir un fichier écriture 
deux fois. 

e Code crochet %. 11 permet de fermer un 
fichier Microdrive qui a été ouvert avec le code 
crochet 44. Si le fichier était ouvert pour l’écri- 
ture, alors toute donnée contenue dans la zone 
de données du canal qui n’a pas encore été 
envoyée est écrite sur la cartouche. Pour un 
fichier lecture, toute donnée qui a été lue et est 
encore dans la zone de données du canal sera per- 
due. Le canal est alors récupéré en déplaçant la 
zone de mémoire vers le haut jusqu’à STKEND. La 
routine est appelée avec le registre IX contenant 
l’adresse de début du canal que nous avons 
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La structure du canal 
Microdrive 


Le canal Microdrive occupe 


595 octets de mémoire. 
Son emplacement est 
donné dans le registre 


IX 


après ouverture d’un fichier 
sur cartouche à l’aide du 


code crochet 44. 
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spécifié. Il est aussi recommandé de préserver 
l’autre paire de registres, HL, avant usage. Une 
erreur est engendrée s’il n’y a pas suffisamment 
de place sur la cartouche pour fermer le fichier. 

e Code crochet %. Il nous permet d’effacer 
un fichier Microdrive, que ce soit un fichier de 
données ou un programme. Le nom du fichier, 
son adresse et sa longueur, ainsi que le numéro 
de lecteur, sont tous fixés de la même manière 
que pour le code crochet 34. 

Maintenant que nous avons vu comment on 
peut ouvrir et fermer des fichiers, il serait évidem- 
ment utile de pouvoir écrire et lire des données 
sur ces fichiers ! Il est possible d’associer un canal 
Microdrive à un flux, mais le moyen le plus sim- 
ple est de faire du canal Microdrive le canal 
« courant » pour l’écriture et la lecture (en rem- 
plaçant respectivement les flux clavier et écran). 

Le meilleur moyen d’écrire des données sur le 
canal Microdrive est d’utiliser RST#10, après avoir 
fixé le canal Microdrive comme canal de sortie 
courant. Pour cela, on met dans la variable 
système CURCHL, en 2363 et 234, l’adresse de 
début du canal Microdrive. Cela se fait à l’aide 
d’une seule commande : 


LD  (23633),IX 


où IX contient l’adresse de début du canal, telle 
qu’elle est donnée par le code crochet 4. Cela 
fait, RST #10 écrira les octets de données dans la 
zone canal Microdrive plutôt qu’à l’écran. Cela 
démontre la complète souplesse du système de 
flux et canaux sur le Spectrum — aspect souvent 
négligé dans les SE d’ordinateurs. Comme nous 
l’avons mentionné précédemment, dès que le 
tampon données est plein, il s’inscrit sur la car- 
touche. Ainsi, pour écrire un fichier du nom de 
FRED sur une cartouche, nous pouvons utiliser la 
partie de code suivante : 


surite file “FRED° to nicrodrive 


3E81 Id à,1 idrive number 

32065C ld (23766) ,à {store drive number 

AF xor à 12er0 à register 

32075C ld (23767) ,à 

212829 id hl,nane get name in h] 

220C5C 1d (23772) ,hl store filenane 

218488 ld h1,4 jénane length 

22045C ld (23778) ,hl store nane length 

D9 exx 

ES push h]l spreserve h1” 

19 exx 

CF rst 48 

2 defb 34 ;hook code 34 

0022515C ld (23633) ,ix ;CURCHL=drive channel 

86FF 1d b,255 +255 bytes infile 

Le] loop: push bc preserve counter 

3E88 ld a,CHAR user would need to 
insert routine to get 
icharacter fron wherever 
jinto à register 

07 rst NB surite to channel 

cl pop bc srestore counter 

18Fé djnz loop 

CF rst #8 

23 defb 35 sclose file 


3E82 ld a,2 

Co8114 call 4168! output to screen 
D9 exx 

E! pop h] srestore HL 

D9 exx 

FB ei sreenable interrupts 
cs ret, 

46524544 name: detm *FRED" ifilenane 


Évidemment, si l’on ouvre deux fichiers, il 
n’est pas nécessaire de sauvegarder les adresses 
de début du canal de chacun dans une zone de 
mémoire (afin qu’elles puissent servir à fermer 


les fichiers, etc.). Notre routine génère un fichier 
de 255 caractères dans la cartouche. 

La lecture des données d’un tel fichier est aussi 
immédiate; le fichier est ouvert comme précé- 
demment, et on met dans CURCHL l’adresse de 
départ du canal Microdrive. La routine Spectrum 
en #12E6 dans la ROM principale sert alors à lire 
un octet du canal. L’octet ainsi lu est mis dans 
le registre À. 

e Code crochet 37. Lorsqu'elle est appelée, 
avec IX contenant l’adresse de départ du canal, 
cette routine lit les nouveaux enregistrements 
d’un fichier en plaçant les données dans la zone 
de données du canal. Si la lecture est réussie, alors 
la valeur de CHREC sera incrémentée. Un fois les 
données ainsi lues, elles remplacent évidemment 
ce qui se trouvait précédemment dans la zone de 
données du canal. 

e Code crochet 8. Il est possible d’écrire des 
données sur la cartouche à l’aide d’un code cro- 
chet qui transfère la zone de données du canal 
en question vers la bande. Cette routine — code 
crochet 3% — est entrée avec IX, qui contient 
l’adresse de début du canal. Notez que toute zone 
de données écrite sur la cartouche avec moins de 
512 octets peut être traitée par le SE du Spectrum 
comme un « secteur libre », à moins qu’elle ne 
contienne la marque d’enregistrement « fin de 
fichier ». Ainsi, le code crochet « ferme 
fichier » peut servir à transférer le dernier bloc 
de données sur la bande s’il contient moins de 
512 octets. Une fois le code crochet 38 appelé, 
le contenu en cours de la zone de données est 
inscrit sur le fichier. 

Une dernière routine utile nous permet de lire 
un certain enregistrement dans un fichier. C’est 
le code crochet %. Pour cette routine, IX 
contient l’adresse de début du canal auquel nous 
voulons accéder, et CHREC contient le numéro 
d’enregistrement souhaité. 

D’autres codes crochets permettent de mani- 
puler les fichiers Microdrive, mais ils nous sont 
moins utiles dans la programmation de tous les 
jours. Le code crochet 4 autorise la lecture des 
données contenues dans un secteur particulier de 
la cartouche Microdrive. CHREC contient égale- 
ment le numéro de secteur auquel nous voulons 
accéder. Le code crochet 41 lit le secteur suivant 
de la cartouche Microdrive, et le code crochet 42 
écrit des données sur le prochain secteur libre. 

Les deux derniers codes crochets que nous 
verrons servent à manipuler les canaux Micro- 
drive. Le code crochet 43 doit produire un canal 
et une mappe cartouche. Cependant, dans la pre- 
mière version de la ROM Interface 1, il y avait 
une bogue dans cette routine, qui avait pour effet 
de faire la même chose que le code crochet 4. II 
fonctionne néanmoins dans les versions ultérieu- 
res de la ROM. Le code 4 efface un canal et la 
mappe associée, dont l’adresse de début se trouve 
dans le registre IX. 

Pour finir, attention à l’utilisation des codes 
crochets, parce que le système de protection 
contre l’écriture utilisée par le Microdrive sert 
seulement pour le logiciel. Un écrasement pour- 
rait alors complètement détruire une cartouche! 
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